strComputer = "atl-dc-01" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems ObjOperatingSystem.Reboot() Next 这个程序非常好，但我的水平还看不懂，里边的一些函数功能我不明白，如果有谁懂的话可以给大家讲一下

用了wmi组件，也可以：set shell=createobject("shell.application")shell.shutdownwindows