' Remove a Virual Server Hard Disk Connection
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("Windows 2000 Server")
Set colConnections = objVM.HardDiskConnections
For Each objConnection in colConnections
objVM.RemoveHardDiskConnection(objConnection)
Next