开机屏蔽些服务

来源：互联网发布：40不惑50知天命60花甲编辑：程序博客网时间：2024/06/04 23:29

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