set ws=createobject("wscript.shell")
url="www.baidu.com"
do
ws.run"iexplore.exe "&url,0
wscript.sleep 3000
call kill_IE(url)
loop
private sub kill_IE(url)
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='iexplore.exe'")
For Each id In pipe
if instr(1,id.commandline,url)<>0 then
id.terminate()
end if
Next
end sub