利用WMI重启或关闭测试机（转）

有些时候我们可能需要在自动测试过程中使用到重启测试机或者关闭测试机，其实关于重启或者关闭windows系统的方法有很多，这里iquicktest为大家介绍如何使用wmi方式来关闭和重启测试机。

关闭测试机
'利用WMI关闭测试机
strComputer = "."
Set bjWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & _
        strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Win32Shutdown(1)
Next

重启测试机
' Restart a Computer
strComputer = "atl-dc-01"
Set bjWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
        strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Reboot()
Next