Jump to content

Remote Free Space Verification


Recommended Posts

I was working on creating a Gui so I could monitor the free space and drives for the servers in our network. So far I was able to do so with a basic setup

This is what I have so far.

#include <GuiConstants.au3>
$GUI=GUICreate("Free Drive Space Validation",500,200)

$sNotify = IniRead("Drvconfig.ini","Servers", "01", "NotFound")
$DRIVE=DriveSpaceFree("\\"&$sNotify&"\C$")
$B=1024
$SPACELEFT=$DRIVE/$B
$SPACELEFTR=Round($SPACELEFT,2)
$SPACELEFTF=StringTrimRight($SPACELEFTR,3)


GUICtrlCreateLabel($sNotify& " " & $SPACELEFTF & " GB",10,25)

GUISetState()
Do
    $MSG=GUIGetMsg()
Until $MSG=$GUI_EVENT_CLOSE

What I would like to do is to have a server list with drives specified for each server, then bring back the details for each server and drives within. Any suggestions welcome.

Edited by Grangato
Link to comment
Share on other sites

You can use WMI to get free space from remote systems.

Search forum for e.g. FreeSpace Win32_LogicalDisk

I wrote long time ago a command line tool to read several information from remote systems -> SIC2

Br,

UEZ

Edited by UEZ

Please don't send me any personal message and ask for support! I will not reply!

Selection of finest graphical examples at Codepen.io

The own fart smells best!
Her 'sikim hıyar' diyene bir avuç tuz alıp koşma!
¯\_(ツ)_/¯  ٩(●̮̮̃•̃)۶ ٩(-̮̮̃-̃)۶ૐ

Link to comment
Share on other sites

Hi Grangato,

you could change your IniRead to IniReadSection. Build up your INI like this:

[servers]
server1=c$
server1=d$
server2=c$
server2=d$

IniReadSection returns a 2D Array, so you'll need to add a loop here and a loop there:

#include <GuiConstants.au3>

$a_data = IniReadSection("settings.ini", "servers")
$B = 1024

Dim $a_space[$a_data[0][0] + 1]
$a_space[0] = $a_data[0][0]

$GUI = GUICreate("Free Drive Space Validation", 150, 40 + $a_space[0] * 25)

For $i = 1 To $a_space[0]
    $a_space[$i] = DriveSpaceFree("\\" & $a_data[$i][0] & "\" & $a_data[$i][1])
    GUICtrlCreateLabel($a_data[$i][0] & ":" & $a_data[$i][1] & ":  " & Round($a_space[$i] / $B, 2) & " GB", 10, 25 * $i - 1)
Next

GUISetState()

Do
    $MSG = GUIGetMsg()
Until $MSG = $GUI_EVENT_CLOSE
Regards,Hannes[spoiler]If you can't convince them, confuse them![/spoiler]
Link to comment
Share on other sites

Thanks guys for your quick turn around. I was able to verify Hannes response and this is definantly what I was hoping for. I am planning on adding some other information as well. I will verify UEZ's response as well.

Edited by Grangato
Link to comment
Share on other sites

Hannes,

Been trying to get your code to write the array to an excel file for each sever entry since the GUICREATELABEL creates a GUI way too big to view. I was able to write to a list view, but I haven't been able to get it to write to an excel file with the Headers "Server" "Total Space" "Free Space."

#include <GuiConstants.au3>

$a_data=IniReadSection("Drvconfig.ini", "Servers")
$B=1024

Dim $a_space[$a_data[0][0]+1]
$a_space[0]=$a_data[0][0]

Dim $a_drive[$a_data[0][0]+1]
$a_drive[0]=$a_data[0][0]

$GUI=Guicreate("Free Drive Space Validation", 500, 400)
GLOBAL $View=GUICtrlCreateTreeView(10,30,290,350)
GUICtrlCreateLabel("Server Name" & "   " & "Free Space",10,10)
For $i = 1 To $a_space[0]
    $a_space[$i]=DriveSpaceFree("\\" & $a_data[$i][0] & "\" & $a_data[$i][1])
    $a_drive[$i]=DriveSpaceTotal("\\" & $a_data[$i][0] & "\" & $a_data[$i][1])
    $1=$a_data[$i][0]
    $2=StringLeft($a_data[$i][1],1)
    $3=Round($a_space[$i] / $B, 2)
    $4=Round($a_drive[$i] / $B, 2)
    GUICtrlCreateTreeViewItem($1&"   "&$2&" "&$3&" GB "&$4&" GB",$View)
Next

GUISetState()

Do
    $MSG = GUIGetMsg()
Until $MSG = $GUI_EVENT_CLOSE
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...