set ws=createobject("wscript.shell")
pro="c:\windows\system32\notepad.exe"
n=split(pro,"\")
name=n(ubound(n))
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_
s=s&sep&ps.name:sep="|":next
wscript.sleep 500
ws.appactivate "记事本"
s=split(s,"|")
for i=0 to ubound(s)
if name=s(i) then wscript.quit
next
ws.run pro
望采纳。