Dim oShutdown, oOPSysSet oShutdown = GetObject("winmgmts:{impersonationlevel=impersonate,(shutdown)}").Execquery("Select * From win32_operatingsystem")For Each oOPSys In oShutdown
oOPSys.win32shudown (12)
Next
oOPSys.win32shudown (12)
Next
调试欢乐多
objshell.ShutdownWindows
是什么东西啊??