Virtual Server Maschinen per Skript anhalten/fortsetzen

[StefanK]

Hallo,

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 Skript zum Fortsetzen 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.

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

Viele Grüße
Stefan

[blub]

was bekommst du denn für eine Meldung? Evtl. mal mit SP! versuchen

cu
blub

[StefanK]

Es kommt leider keine Meldung. Muss mir das nochmal genauer anschauen, aber ich dachte vielleicht hat jemand schon ähnliche Probleme gehabt und es ist einfach zu lösen.

Die Befehle sind an sich richtig. Kann eigentlich nur ein "Zeit-Problem" sein.

Gruß
Stefan

[Das Urmel]

Nimm mal 'On Error' raus, was passiert?

[StefanK]

Werde ich Montag testen.

Was wird vermutlich passieren? Wird er beim Fehler einfach kommtarlos stehenbleiben, oder meinst da erscheint ne Fehlermeldung?

Gruß
Stefan

[JackSlain]

Hallo,

das ist ein Thema das mich auch interessiert vielleicht könnt ihr mir weiterhelfen...

Ich brauche ein ähnliches Script wenn nicht das gleiche + eine Zusatzfunktion:

1. Virtuelle Maschine in "Save"-Status bringen
2. Wegkopieren
3. Wieder starten

Dann noch ganz wichtig...wie packe ich das alles in eine Scriptdatei so dass ich diese nur noch ausführen muss?

Danke schonmal!

[blub]

Hi,
Es gibt eine Reihe von Webcasts, die sich mit dem Scripting von Virtual Server beschäftigen
Find Events and Webcasts

Ich kann mir vorstellen, dass hier etwas dabei ist. Gebt doch bitte Rückmeldung, wenn ihr etwas findet. Die Aufgabenstellung interessiert bestimmt viele Leser

cu
blub

[JackSlain]

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()

[StefanK]

Mahlzeit,

ich wollte nur nochmal Rückmeldung geben.
Das Skript funktioniert nun. ich hatte wohl eine Statuszahl vertauscht.

Hier nun das funktionierende Script

Anhalten:

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 angehaltener 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 = 6 then
		'wird sie nun fortgesetzt
		objVM.Resume
	        WScript.Sleep 500
	end if
Next

Set objVM = Nothing

Die mir bekannten Statuscodes und Befehle:

möglicher Status (objVM.State)
1 = aus
2 = Status gespeichtert
5 = an
6 = angehalten

3 = wird gestartet
7 = wird gespeichert

mögliche Befehle

objVM.Pause			'anhalten
objVM.Resume			'fortfahren (auch bei .Save?)
objVM.Save			'Status speichern
objVM.DiscardSavedState		'gepeichterten Status löschen
objVM.Startup			'starten
objVM.TurnOff			'ausschalten
objVM.GuestOS.Shutdown		'GastOS runterfahren

Ich wünsche allen einen guten Rutsch ins Jahr 2008.

Viele Grüße
Stefan

[blub]

Hallo Stefan,
Danke für die Rückmeldung und den Code

Dir auch ein erfolgreiches 2008

cu
blub