Looking at disk space used by Virtual Server with WMI

So I have been spelunking through the Virtual Server WMI interfaces, and found this handy one for reporting the amount of physical hard disk space used by each virtual machine.

Option Explicit

Dim strComputer, objWMIService, colVMs, vm, totalDisk

totalDisk = 0
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "rootvmvirtualserver")
Set colVMs = objWMIService.ExecQuery("SELECT * FROM VirtualMachine",,48)
For Each vm in colVMs
Wscript.Echo "-----------------------------------"
Wscript.Echo vm.name & ":: Disk space used: " & _
vm.DiskSpaceUsed / 1048576 & _
" MB (" & vm.DiskSpaceUsed & " bytes)"
totalDisk = totalDisk + vm.DiskSpaceUsed
Next

    Wscript.Echo "-----------------------------------"
Wscript.Echo "All virtual machines"
Wscript.Echo "-----------------------------------"
Wscript.Echo "Disk space used: " & totalDisk / 1048576 _
& " MB (" & totalDisk & " bytes)"

The nice thing is that it gives you the total disk usage, even when the virtual machine has multiple virtual hard disks attached. The not so nice thing is that it only reports this information for virtual machines that are currently running.

Cheers,
Ben