随笔 - 49  文章 - 0 评论 - 19 
<2008年1月>
303112345
6789101112
13141516171819
20212223242526
272829303112
3456789

Web Site Traffic Counter

常用链接

留言簿(3)

随笔分类(48)

随笔档案(49)

搜索

  •  

积分与排名

  • 积分 - 62750
  • 排名 - 97

最新评论

阅读排行榜

评论排行榜

关闭除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 疾风随影 阅读(446) 评论(0)  编辑 收藏 引用 所属分类: Script & Batch column
只有注册用户登录后才能发表评论。