Virtual Serverをスクリプトで自動化させる@VBS

Virtual Server管理をスクリプトを自動化させるスクリプト
任意のバーチャルマシンをシャットダウンさせる

On Error Resume Next

Dim objVS
Dim objVM
Dim strMachine

strMachine = "マシン名"

Set objVS = CreateObject("VirtualServer.Application")
Set objVM = objVS.FindVirtualMachine(strMachine)

Set objGuestOS = objVM.GuestOS
objGuestOS.Shutdown()

Set objVS = Nothing
Set objVM = Nothing

全サーバの状態を保存して停止

On Error Resume Next

Set objVS = CreateObject("VirtualServer.Application")
Set colVMS = objVS.VirtualMachines

For Each objVM in colVMS
	objVM.Save
Next

参考リンク
Microsoft Virtual Server Reference

1 COMMENT

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です