Used disk space 2

[Brycspain]

I'm trying to get used disk space on a server however, usedspace isn't the right syntax for the com object. Could someone tell me where to look or tell me what the syntax is please?

Thanks

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
	    Set colHardDrives = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk where Drivetype = " _
	                                           & HARD_DISK & "") 
		For Each objHardDrive In colHardDrives
		UsedSpace = (objHarddrive.UsedSpace / objHardDrive.Size * 100)
                oLogFile.Writeline "DeviceID: " & objHardDrive.DeviceID
	        oLogFile.Writeline "UsedSpace: " & objHardDrive.UsedSpace/1024\1024+1 & " MB"
Next

 

[PHV]

Have a look here:

http://www.microsoft.com/technet/scriptcenter/tools/scripto2.mspx

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[dm4ever]

Look at the supported properties for this WMI class:

http://msdn2.microsoft.com/en-us/library/aa394173.aspx

A quick look at this class it looks like you will have to compute the used space by taking the .Size - .FreeSpace

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[Brycspain]

Thanks PHV and Dm...I saw there wasn't a used space object so I deduced I would have to take the total size minus the free space.

Kudos to both of you.

 

[markdmac]

You will also want to do some math on the values.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk where DriveType = '3'",,48)
For Each objItem in colItems
    report = report & "****************************************************************************************************" & vbCrLf
    report = report & "Drive: " & objItem.Caption & vbTab & "VolumeSerialNumber: " & objItem.VolumeSerialNumber& vbCrLf 
    report = report & vbTab & "Size: " & objItem.Size /1024/1024\1024+1 & "GB Total Disk Space" & vbCrLf
    report = report & vbTab & "Used Space: " & (objItem.Size - objItem.FreeSpace) /1024/1024\1024+1 & "GB Used Disk Space" & vbCrLf
    report = report & vbTab & "Free Space: " & objItem.FreeSpace /1024/1024\1024+1 & "GB Free Disk Space" & vbCrLf
    report = report & "****************************************************************************************************" & vbCrLf
    
Next

WScript.Echo report

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

 

[Brycspain]

Thanks Mark.