使用WMI重启不能用3389登录的服务器

    远程重启动服务器的VBscript，其实重起的办法也有很多，比如用SQL的查询分析器等。

strComputer = "192.168.0.1"
strUsername="ABC"
strPassword="EFG"

Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(strComputer ,"\root\cimv2", strUsername ,strPassword)
objWMIService.Security_.ImpersonationLevel = 3 

Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    ObjOperatingSystem.Reboot()
Next