Stefan
2007-07-31 06:03:35 UTC
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?
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
__________________________________________________
__________________________________________________
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?
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
__________________________________________________
__________________________________________________