code:

---

break on

$TEMP = "%TEMP%\TLIST.TMP"

if exist($TEMP)
 del $TEMP
endif

shell '%comspec% /c tlist | findstr /i "iexplore.exe" >$TEMP'

if open(1,$TEMP) = 0
 $line = ReadLine(1)
 while @ERROR=0
  if $line
   $pid = val(substr($line,1,instr($line," ")))
   if $pid
    shell '%comspec% /c kill $pid'
   endif
  endif
  $line = readline(1)
 loop
 $=close(1)
endif

if exist($TEMP)
 del $TEMP
endif

exit 1

---