Virtual ServerのゲストOSをホストから休止状態にする

Set wshShell = WScript.CreateObject("WScript.Shell")
Set objVS = CreateObject("VirtualServer.Application")
Set objVMColl = objVS.VirtualMachines
If objVMColl.Count > 0 Then
    For Each objVM in objVMColl
        if objVM.State = 5 Then
            objVM.Save()
            strMsg = "Name:" & objVM.Name & " を保存状態に移行しました。"
            wshShell.LogEvent 0, strMsg 
        End if
    Next
End If

Virtual Serverでホスト側のOSをシャットダウンするとゲストOS側は電源コードが抜かれた状態になってしまいます。シャットダウンスクリプトに追加すればいいでしょう。スクリプト実行はすぐ終わっちゃうので、時間待ちを入れた方がいいかもしれない。