虚拟主机教程

	Set VmWMI=GetObject("winmgmts:\\.\root\virtualization")
	set vmSets=VmWMI.ExecQuery("select * from msvm_ComputerSystem where ElementName='" & vmName & "'")
	If vmSets.count=1 then
		Set oVM=vmSets.ItemIndex(0)
		Set inPara=oVM.Methods_("RequestStateChange").InParameters.SpawnInstance_()
		inPara.RequestedState=3	'2电源开,3电源关,10重启
		inPara.TimeoutPeriod=null
		Set outParm=oVM.ExecMethod_("RequestStateChange",inPara)
	Else
		WScript.Echo "NOT FOUND THIS VM!"
	End If
 
	oVM.EnabledState'得到当前VM主机状态2正在运行3已关闭32768已暂停32774正在停止32773正在保存32769已保存32770正在启动