' Compact a Virtual Hard Disk
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application")
set colVMs = objVS.VirtualMachines
For Each objVM in colVMS
Set colHardDiskConnections = objVM.HardDiskConnections
For Each objDrive in colHardDiskConnections
Set objHardDisk = objDrive.HardDisk
objHardDisk.Compact()
Next
Next