中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-07 16:34
48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,252 会员排行
DOS批处理 & 脚本技术(批处理室) » 如何用VBS杀掉除系统以外的进程?
可打印版本  913 / 3
第1楼 luckboy45 发表于 2007-11-27 18:22
中级用户 发帖 212 积分 487
如何用VBS杀掉除系统以外的进程?
我想用VBS循环来杀除系统以外的进程

alg.exe
csrss.exe
explorer.exe
lsass.exe
smss.exe
ctfmon.exe
services.exe
svchost.exe
winlogon.exe
System
System Idle Process
Wscript.exe
cmd.exe
以上是需要保留的进程

用BAT无法实现循环杀进程,用死循环机器会死的.....

for /f "skip=3" %i in ('wmic process get name^|findstr /v /i "smss.exe csrss.exe winlogon.exe services.exe lsass.exe svchost.exe explorer.exe"') do TASKLIST %i

希望能用VBS的DO LOOP来实现循环,常驻内存,每5秒执行一次操作

本人能力不够,无法实现,望各位朋友多多帮忙没,写出代码供大家学习交流
第2楼 luckboy45 发表于 2007-11-27 21:25
中级用户 发帖 212 积分 487
这个问题似乎没人知道啊....
第3楼 ZJHJ 发表于 2007-11-27 22:49
高级用户 发帖 374 积分 609
用BAT应该可以实现杀除系统以外的进程
第4楼 35799 发表于 2008-03-07 02:27
新手上路 发帖 7 积分 14
这是我用开的,在网上找到。。
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
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023