随笔 - 49  文章 - 0 评论 - 19 
<2007年10月>
30123456
78910111213
14151617181920
21222324252627
28293031123
45678910

Web Site Traffic Counter

常用链接

留言簿(3)

随笔分类(48)

随笔档案(49)

搜索

  •  

积分与排名

  • 积分 - 60991
  • 排名 - 99

最新评论

阅读排行榜

评论排行榜

关闭除csrss.exe、explorer.exe、lsass.exe、smss.exe、services.exe、svchost.exe、winlogon.exe、system、System Idle Process的所有进程

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 "csrss.exe"
Case "explorer.exe"
Case "lsass.exe"
Case "smss.exe"
Case "services.exe"
Case "svchost.exe"
Case "winlogon.exe"
Case "system System Idle Process"
Case Else
objProcess.Terminate()
End Select
Next


以上是VBS脚本,下面是命令脚本需建一个Process.ini文件,并将不需要关闭的进程放进去

@echo off&Setlocal EnableDelayedExpansion
rem Code by lxmxn # bbs.cn-dos.net

for /f "tokens=1 delims=," %%a in ('tasklist /nh /FO CSV') do (
    for /f "delims=" %%b in (Process.ini) do (
        set /a flag+=1
        if /i not %%a=="%%b" set /a num+=1
    )
    if !flag! equ !num! taskkill /f /im %%a
    set /a flag=num=0
)
echo the end...



posted on 2007-10-16 14:50 疾风随影 阅读(417) 评论(0)  编辑 收藏 引用 所属分类: Script & Batch column
只有注册用户登录后才能发表评论。