it168 資訊分享空間

Option Explicit

Dim WMIService

Dim VMList

Dim VMName

'Specify the name of the virtual machine that I want to start

VMName = "Windows Server 2003"

'Get instance of 'virtualization' WMI service on the local computer

Set WMIService = GetObject("winmgmts:\\.\root\virtualization")

'Query for the specific virtual machine that I want to start

Set VMList = WMIService.ExecQuery("SELECT * FROM Msvm_ComputerSystem WHERE ElementName='" & VMName & "'")

' Request a state change on the first VM that is returned

' 2 = start, 3 = stop and 32769 = save state

VMList.ItemIndex(0).RequestStateChange(2)

#The name of the virtual machine to be started

$VMName = "Windows Server 2003"

#Get the VM Object

$query = "SELECT * FROM Msvm_ComputerSystem WHERE ElementName='" + $VMName + "'"

$VM = get-wmiobject -query $query -namespace "root\virtualization" -computername "."

#Request a state change on the VM

$Result = $VM.RequestStateChange(2)