「状態の保存」「保存された状態から復元」

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