「状態の保存」「保存された状態から復元」
Virtual Server 2005上のVirtual Machineの「状態の保存」と「保存された状態から復元」をVBScriptから制御。
「状態の保存」
Const vmVMState_Running = 5 Set objVS = CreateObject("VirtualServer.Application") Call SaveVM("VM") Set objVS = Nothing Private Sub SaveVM(ByVal strVMName) Set objVM = objVS.findVirtualMachine(strVMName) If objVM.state = vmVMState_Running Then objVM.save End If Set objVM = Nothing End Sub
「保存された状態から復元」
Const vmVMState_Saved = 2 Set objVS = CreateObject("VirtualServer.Application") Call SaveVM("VM") Set objVS = Nothing Private Sub SaveVM(ByVal strVMName) Set objVM = objVS.findVirtualMachine(strVMName) If objVM.state = vmVMState_Running Then objVM.startup End If Set objVM = Nothing End Sub