• Kawahara

指定した仮想PCの起動と停止


Hyper-Vの仮想HDDのバックアップ時やもろもろに必要だったのでこちらを参考に修正。

指定した仮想PCの起動


Dim strArg      ' 引数情報
Dim objWMI, VMList, VM
Set objWMI = GetObject("winmgmts:\.rootvirtualization")
Set VMList = objWMI.ExecQuery("SELECT * FROM Msvm_ComputerSystem")  

For Each strArg In WScript.Arguments
    For Each VM In VMList
        If VM.Caption = "仮想マシン" then 
            If VM.ElementName = strArg Then
		WScript.Echo strArg & "を起動中。"
                VM.RequestStateChange(2)
            End If
        End if 
    Next
Next

指定した仮想PCの停止


Dim strArg      ' 引数情報
Dim objWMI, VMList, VM, objVMShutdown, objRes
Set objWMI = GetObject("winmgmts:\.rootvirtualization")
Set VMList = objWMI.ExecQuery("SELECT * FROM Msvm_ComputerSystem")

For Each strArg In WScript.Arguments
    For Each VM In VMList 
        If VM.Caption = "仮想マシン" and VM.EnabledState = 2 then
            If VM.ElementName = strArg Then
                If Not VM.EnabledState = 32769 Then
                    Set objVMShutdown = objWMI.ExecQuery("SELECT * FROM Msvm_ShutdownComponent WHERE SystemName='" & VM.Name & "'") 
                    objRes = objVMShutdown.ItemIndex(0).InitiateShutdown(True,"Scripted Shutdown")
                    WScript.Echo strArg & "を停止中。"
                Else
                    Msgbox "NG"
                End If
            End if
        End if
    Next
Next

#HyperV

1回の閲覧

最新記事

すべて表示

ファーストサーバのデータ消失について

ガルーンの運用はデータ量の増加が多く、システム担当の負荷が高い。そのため、クラウドサービスやホスティングを利用するべきだという考えを私も持っていましたが・・・ファーストサーバによって、根底から覆されました。詳細は省略。 そもそも冷静に考えれば運営しているサイトが月間何億の利益を上げようが、ホスティング会社には数千円の月額使用料しか収入が無い。今回のようなトラブル発生時に保険金が下りるような対応をし

Disk2VhdでP2V

Disk2Vhdを使用して、物理サーバーを仮想化しようと試してみた。が、「A disk read error occured」との事で起動できず。HDDのイメージバックアップツールのCDから仮想化したサーバーから起動してみるとディスクが正しく認識されていない。 どうも、Disk2Vhdは物理HDD毎にイメージファイルを生成するもよう。物理HDD内に複数のパーティションが割り当てられている場合は同時

© 2019 BY マルハチITサービス PROUDLY CREATED WITH Wix.com​