set args = Wscript.arguments
dim strFreeSpace
strServer = args(0)
strDrive = args(1)
Set DiskSet = GetObject("winmgmts:{impersonationLevel=impersonate}//" & strServer).ExecQuery("select FreeSpace,Size,Name from Win32_LogicalDisk where Name='" & strDrive & ":'")
for each Disk in DiskSet
strFreeSpace = Disk.FreeSpace/Disk.Size * 100
WScript.Echo "Drive " & Disk.Name & " % free =" & strFreeSpace
Next