dim wmi,process,pro,str,program
program="warap-rr.exe"
set wmi=getobject("winmgmts:{impersonationLevel=impersonate}\\.\root\cimv2")
set process=wmi.execquery("select * from win32_process")
str=""
for each pro in process
str=str&pro.name
next
if instr(str,program)> 0 then
set process=wmi.execquery("select * from win32_process where name='warap-rr.exe'")
for each pro in process
pro.terminate()
next
end if