2007/10/7 日曜日

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

Filed under: スクリプト — pnpk @ 4:44:33

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

Popularity: 4%

コメント (0) »

この記事にはまだコメントがついていません。

コメント RSS トラックバック URI

コメントをどうぞ

HTML convert time: 0.495 sec. Powered by WordPress ME