Leider kann ich da nicht viel finden...
Bei mir brennt die Hütte, muss das bis heute Abend hinbekommen...
Ich hab da was gefunden bin mir aber nicht sicher ob das hilft:
-----------------------------------Stoppen-------------------------------------------
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("Windows 2000 Server")
objVM.Pause()
------------------------------------Save------------------------------------------
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("Windows 2000 Server")
errReturn = objVM.Save()
----------------------------------Start--------------------------------------------
On Error Resume Next
Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine("Windows 2000 Server")
objVM.Resume()