XP 検証済み VBScript / Javascript プロセスを強制終了

      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