用脚本关机，注销

 
 

  
  

   
   
   
   Const
   
    SHUTDOWN 
   
   =
   
    
   
   1
   
   

strComputer 
   
   =
   
    
   
   "
   
   .
   
   "
   
   

   
   Set
   
    objWMIService 
   
   =
   
    GetObject_
    (
   
   "
   
   winmgmts:{impersonationLevel=impersonate,(Shutdown)}//
   
   "
   
    
   
   &
   
    _
        strComputer 
   
   &
   
    
   
   "/r
   
   oot/cimv2
   
   "
   
   )


   
   Set
   
    colOperating Systems 
   
   =
   
    objWMIService.ExecQuery _
    (
   
   "
   
   Select * from Win32_OperatingSystem
   
   "
   
   )
 

   
   For
   
    
   
   Each
   
    objOperatingSystem in colOperatingSystems
    objOperatingSystem.Win32Shutdown(SHUTDOWN)

   
   Next
   
   


  
  
 
 

本段代码摘自 http://www.microsoft.com/china/technet/community/scriptcenter/resources/hey1115.mspx

 原文还有锁定工作站等。