CODEWITHSUNDEEP
vbscript
Ne Ma
Ne Ma

Reputation: 1709

When using GetDrive, FreeSpace is reporting incorrect in VBSCript

I have the code below which will get drive p(a network drive) and throw up a message box with its total & free space. Total is reporting fine but for some reason free is throwing up a completely incorrect value.

Set filesystemObject = CreateObject("Scripting.FileSystemObject")
Set drive = filesystemObject.GetDrive("P:")
total = round(drive.TotalSize/1024/1024/1024)
free = round(drive.FreeSpace/1024/1024/1024)
MsgBox(total & " " & free) // throws up 400gb total and 34gb free

Free should be 1.7gb, which I have verified as being accurate on the actual server. I also checked the total free space across all drives and this total came to 25gb(across 4 drives) so I cannot see that being an impacting factor.

Does anyone know what could potentially be throwing this value off?

Edit: Bonds answer below is marked correct as its a secondary method of proving the code above is accurate. If you come across this problem there are several features which may impact the values that you are returned.

1) Quotas being enabled. 2) Your admins rigging free space to not be accurate. In my case the admins had been rigging the share to display a much lower free space than there actually was in an effort to make users think about what they are storing.

Upvotes: 0

Views: 402

Answers (1)

Bond
Bond

Reputation: 16321

I've had trouble trusting the FSO's numbers in the past, too. Have you tried using WMI?

Const strDrive = "P:"
intFactor = 1024 ^ 3

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
Set colItems = objWMIService.ExecQuery("select * from Win32_LogicalDisk where DeviceID='" & strDrive & "'")

For Each objItem in colItems 

    MsgBox "Size: " & FormatNumber(objItem.Size / intFactor)
    MsgBox "Free: " & FormatNumber(objItem.FreeSpace / intFactor)
    MsgBox "Used: " & FormatNumber((objItem.Size - objItem.FreeSpace) / intFactor)

Next

Upvotes: 1

Related Questions