' Run this script at the command prompt by typing
'     cscript usedDisk.vbs <machine_name>

Set objArgs = wscript.Arguments
strComputer = objArgs.item(0)
set oSvc = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

wqlQuery = "select FreeSpace,Size from Win32_LogicalDisk where Name = 'C:'"

for each oData in oSvc.ExecQuery(wqlQuery)
	for each oProperty in oData.Properties_
		if oProperty.Name = "FreeSpace" then
			freeC = oProperty.Value
		elseif oProperty.Name = "Size" then
			sizeC = oProperty.Value
		end if
	next
	percentUsedC = 100 - (100 * (freeC/sizeC))
next

wqlQuery = "select FreeSpace,Size from Win32_LogicalDisk where Name = 'D:'"

for each oData in oSvc.ExecQuery(wqlQuery)
	for each oProperty in oData.Properties_
		if oProperty.Name = "FreeSpace" then
			freeD = oProperty.Value
		elseif oProperty.Name = "Size" then
			sizeD = oProperty.Value
		end if
	next
	percentUsedD = 100 - (100 * (freeD/sizeD))
next

wscript.echo int(percentUsedD)
wscript.echo int(percentUsedC)

wscript.echo Date() & " " & Time()

wscript.echo "Disk D: Used"
wscript.echo "Disk C: Used"