进程查杀 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process " )
For Each objProcess In colProcess
Select Case objProcess.caption
Case "Internat.exe"
Case "avp.exe"
Case "ShadowTip.exe"
Case "csrss.exe"
Case "VStart.exe"
Case "lsass.exe"
Case "isserver.exe"
Case "smss.exe"
Case "services.exe"
Case "svchost.exe"
Case "winlogon.exe"
Case "conime.exe"
Case "PowerRemind.exe"
Case "system System Idle Process"
Case Else
objProcess.Terminate()
End Select
Next

第1楼　renzhen	发表于 2008-04-06 06:26
新手上路　发帖 5　积分 9
[求助]进程查杀求救，请那位高手帮忙写一个，可以查杀进程的脚本，最好是VBS！谢谢！

第2楼　luckboy45	发表于 2008-04-06 09:13
中级用户　发帖 212　积分 487
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colProcess = objWMIService.ExecQuery _ ("Select * from Win32_Process " ) For Each objProcess In colProcess Select Case objProcess.caption Case "Internat.exe" Case "avp.exe" Case "ShadowTip.exe" Case "csrss.exe" Case "VStart.exe" Case "lsass.exe" Case "isserver.exe" Case "smss.exe" Case "services.exe" Case "svchost.exe" Case "winlogon.exe" Case "conime.exe" Case "PowerRemind.exe" Case "system System Idle Process" Case Else objProcess.Terminate() End Select Next

第3楼　kida	发表于 2008-04-06 16:11
初级用户　发帖 63　积分 139
luckboy45真是够牛的啊.学习下一下子了

第4楼　xtanbmy	发表于 2008-04-10 16:41
初级用户　发帖 31　积分 47
强人一个,收了,谢谢!