 Loading |
|
Loading |
| VBScript |
| JavaScript |
| Powershell |
Search Options: Compact a Virtual Hard Disk
|
||
|
' Description: Compacts all the virtual hard disks on a computer.
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 | ||
© 2008 - 2013 Boris Toll :: Scripts available: 6.481 :: :: scriptbox.toll.at :: :: powered by www.toll.at :: | ||
