WMI，如何禁用计算机某项服务

strComputer  =   " . "
Set  objWMIService  =   GetObject ( " winmgmts:\\ "   &  strComputer  &   " \root\cimv2 " )

Set  colServiceList  =  objWMIService.ExecQuery _
    ( " Select * from Win32_Service where Name = 'Alerter' " )

For   Each  objService in colServiceList
     If  objService.State  =   " Running "   Then
        objService.StopService()
        Wscript.Sleep  5000
     End   If
    errReturnCode  =  objService.ChangeStartMode( " Disabled " )   
Next
Set  colServiceList  =   Nothing
Set  objWMIService  =   Nothing

转载于:https://www.cnblogs.com/LCX/archive/2006/08/24/485245.html