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 & "\root\vm\virtualserver")
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
