vbs关闭指定进程要怎么写

Question

例如
先判断A进程是否存在，如果存在就继续执行下面的命令，如果不存在就弹错 然后终止执行
关闭 A进程

Answer 1

=============================代码======================
option Explicit
dim wmi,proc,procs,proname,flag,WshShell
proname="QQ.exe" '需要监测的务进程的名称
set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
set procs=wmi.execquery("select * from win32_process")
flag=False
for each proc in procs
if strcomp(proc.name,proname)=0 then
flag=true
exit for
end if
next
set wmi=nothing
if flag then
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run "taskkill /f /im " & proname,0
MsgBox "进程已经结束！"
WScript.Quit
Else
MsgBox "未找到进程！"
WScript.Quit
end if
==============================代码=======================
希望能帮助你。