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
saveState AllVMs.vbs…
今日のお仕事終了！とかの時に使ってください Virtual Server管理をスクリプトを自動化させるスクリプト ? Virtual Serverをスクリプトで自動化 (more…)