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%

コメント (1) »

  1. saveState AllVMs.vbs…

    今日のお仕事終了!とかの時に使ってください Virtual Server管理をスクリプトを自動化させるスクリプト ? Virtual Serverをスクリプトで自動化 (more…)

    トラックバック by aspxの日記2008(ASP++ブログ) by Moo — 2008/9/5 金曜日 @ 16:18:08

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

コメントをどうぞ

HTML convert time: 0.507 sec. Powered by WordPress ME