Anhalten und Fortsetzen von Virtual Server VMs per Script

Hallo NG,

vor einiger Zeit habe ich zwei Scripts geschrieben. Das eine hält eine
bestimmte Maschine an, das zweite lässt die Maschine fortsetzen. Das braucht
man zu Sicherungszwecken, da laufende Maschinen nur im Angehaltenen Modus
gesichert werden können.

Mit einer bestimmten Maschine funktioniert das ganz gut. Leider funktioniert
nur das jetzige Skript zum Anhalten der Maschinen. Das andere nicht. Kann
mir jemand sagen was ich da falsch mache?

Es handelt sich um den Virtual Server 2005 R2 auf einem Windows 2003 Server
SP1.


Viele Grüße
Stefan


Hier meine beiden Skripte.

Anhalten von Laufenden Maschinen:
__________________________________________________

On Error Resume Next

Set objShell = CreateObject ("WScript.Shell")
Set virtualServer = CreateObject("VirtualServer.Application")

For each objVM in virtualServer.VirtualMachines
'Falls die virtuelle Maschine läuft
If objVM.State = 5 then
'wird sie anhalten
objVM.Pause
WScript.Sleep 500
end if
Next

Set objVM = Nothing
__________________________________________________
__________________________________________________



Fortsetzen aller angehaltenen Maschinen:
__________________________________________________

On Error Resume Next

Set objShell = CreateObject ("WScript.Shell")
Set virtualServer = CreateObject("VirtualServer.Application")

For each objVM in virtualServer.VirtualMachines
'Falls die virtuelle Maschine angehalten wurde
If objVM.State = 2 then
'wird sie nun fortgesetzt
objVM.Resume
WScript.Sleep 500
end if
Next

Set objVM = Nothing
__________________________________________________
__________________________________________________




.

Loading