开机屏蔽些服务

on error resume next
'-----------------------------------------------------------------------------------------------------------------------------------
'等待域脚本完全执行结束，再开始折腾
WScript.Sleep 15000


'-----------------------------------------------------------------------------------------------------------------------------------
'WMI对象
computer="."
set wmi=GetObject("winmgmts:\\" & computer & "\root\cimv2")


'服务
'set serviceList=wmi.ExecQuery("select * from Win32_Service where (Name='ntrtscan') or (Name='tmlisten') or (Name='OfcPfwSvc')") '[讨厌] Windows自动更新服务、OfficeScan扫描服务
'for each service in serviceList
'    if (service.State="Running") then
'        '终止服务
'        service.StopService()
'    end if
'next


'set serviceList=wmi.ExecQuery("select * from Win32_Service where (Name='wuauserv')")
'for each service in serviceList
'    if (service.State="Running") then
'WScript.Echo "running"
'        '终止服务
'        service.StopService()
'WScript.Echo service.State
'    end if
'    '禁止服务，保证不再被启动
'    service.ChangeStartMode("Disabled")
'next


'进程
set processList=wmi.ExecQuery("select * from Win32_Process where (Name='iexplore.exe')") '[讨厌] QIT广告
for each process in processList
    '结束进程
    process.Terminate()
next


'-----------------------------------------------------------------------------------------------------------------------------------


'完成
WScript.Quit