用vbs实现的瞬间关闭多个系统进程的脚本

程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中断进程。

'---------------------------------------------------------------------------------- 
on error resume next 
set fs=createobject("scripting.filesystemobject") 
set os=createobject("wscript.shell") 
set os0=createobject("shell.application") 
set d0=createobject("scripting.dictionary") 
set wmi=getobject("winmgmts:\\.") 
set pro_s=wmi.instancesof("win32_process") 

'-------------创建临时文本文件文件，把当前进程输入该文本文件之中并通过记事本打开之 
'---------同时把进程对应序号 和 pid 传递给dictionary(d0)一份 
filename=fs.gettempname 
set f1=fs.createtextfile(filename,true) 
msg="序号"&vbtab&"名称"&vbtab&"pid"&vbtab&"程序文件"&vbtab&now&chr(10) 
f1.writeline(msg) 
n=1 
for each p in pro_s 
f1.writeline(n&". "&p.name&"    ,    "&p.handle&"    ,    "&p.commandline&chr(10)) 
d0.add ""&n,trim(p.handle) 
n=n+1 
next 
f1.close 
os0.minimizeall 
os.exec "notepad.exe "&filename 
wscript.sleep 500 

'--------------等待用户输入欲中断的进程相关的序号列,确定之后关闭并删除临时文本文件 
x=inputbox("请根据"&filename&"中的内容"+chr(10)+ _ 
     "选择需要同时中断的进程对应序号："+chr(10)+ _ 
     "(序号之间用','间隔 例如：'1,3,5,7,11')","选择") 
os.appactivate filename&" - 记事本" 
os.sendkeys "%fx" 
wscript.sleep 500 
fs.deletefile filename 

'--------如果用户取消了操作，就退出程序 
if x="" then wscript.quit 
'--------把用户输入的序号列中相关的序号传递给一个数组 xs 
xs=split(x,",",-1,1) 
'-----------对用户输入的序号列进行校对，将重复序号标记为 -2,计算实际序号个数 
for i=0 to ubound(xs) '---利用双重循环将重复输入的内容保留一份，其他的标记为-1 
for n=0 to ubound(xs) 
    if n=i then  
     n=n+1 
     if n>ubound(xs) then exit for 
    end if 
    if trim(xs(n))=trim(xs(i)) or _ 
     trim(xs(n))="" then  
     xs(n)="-1" 
    end if 
next 
next 

w=0 '----把不真实可用的序号剔除并计算出其个数 
for i=0 to ubound(xs) 
if d0.exists(xs(i))=false then  
     xs(i)="-2" 
     w=w+1 
end if 
next 

w=(ubound(xs)+1-w)    '---得出可用的序号个数 
'------------如果序列中没有输入任何序号就退出程序 
if w=0 then 
msgbox "需要中断的进程列表为空！" 
wscript.quit 
end if 

'-------------根据用户输入信息中断相应进程 
m=0 
for i=0 to ubound(xs) 
if xs(i) <> "-2" then '---只有真实可用的序号才参与循环 
for each p in pro_s 
    if trim(p.handle)=trim(d0(xs(i))) then '---如果进程pid号码正是需要中断的就尝试中断 
     p_name=p.name 
     pd=p.terminate() 
     if pd=0 then '---判断中断进程的尝试是否成功 
      msg=p_name&" 进程中断成功!" 
      m=m+1 
     else 
      msg=p_name&" 进程中断失败!" 
     end if 
     os.popup msg,1,"通知",64+0 
    end if 
next 
end if 
next 

os.popup    w&"个目标进程,已经中断了"&m&"个" ,5,"通知",64+0 
wscript.quit