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