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…)