Contact Info

Crumbtrail

ActiveXperts.com » Administration » Scripts » Adsi

Compact a Virtual Hard Disk in Windows

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.

Compact a Virtual Hard Disk in Windows using VBScript, WMI and LDAP

Example(s)

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