vbs 程序问题

本vbs脚本旨在使IE打开一段时间后，自动退出，已成功实现，但是IE退出后几秒钟后，显示错误第14行1，“找不到”，是怎么回事阿，请问高手
Option Explicit
Rem On Error Resume Next
dim wsh , retval , PSWval, wmival , myProcess , mypipe, PSWvalue , id
const PSWdilivery=198787
PSWval=Cstr(PSWdilivery)
retval=MsgBox("中国电信宽带体验区，上网体验时间请不要超长" & vbCr & vbCr & space(32) &"谢谢合作!" & vbCr & space(50) &"Trojan_Romia提供!" ,1,"提示")
if retval=1 then
set wsh=CreateObject("wscript.shell")
wsh.run "iexplore.exe"
set wmival=GetObject("winmgmts:\\.\root\cimv2")
set myProcess=wmival.execQuery("select * from Win32_process where name='iexplore.exe'")
For Each id in myProcess
Wscript.sleep 6000
id.terminate()
Msgbox "您好，您的体验时间超长，浏览器自动退出!",4096
next
else
PSWvalue=inputBox("Plase fill the blank with your TR_Code:","Caution!")
if PSWvalue=PSWval then

Option Explicit
Rem On Error Resume Next
dim wsh , retval , PSWval, wmival , myProcess , mypipe, PSWvalue , id
const PSWdilivery=198787
PSWval=Cstr(PSWdilivery)
retval=MsgBox("中国电信宽带体验区，上网体验时间请不要超长" & vbCr & vbCr & space(32) &"谢谢合作!" & vbCr & space(50) &"Trojan_Romia提供!" ,1,"提示")
if retval=1 then
set wsh=CreateObject("wscript.shell")
wsh.run "iexplore.exe"
set wmival=GetObject("winmgmts:\\.\root\cimv2")
set myProcess=wmival.execQuery("select * from Win32_process where name='iexplore.exe'")
For Each id in myProcess
Wscript.sleep 6000
id.terminate();
Msgbox "您好，您的体验时间超长，浏览器自动退出!",4096
next
else
PSWvalue=inputBox("Plase fill the blank with your TR_Code:","Caution!")
if PSWvalue=PSWval then
set wsh=CreateObject("wscript.shell")

vbs程序问题～～～～～～～～～～急！！！ vbs 问题 VBS小程序出错的问题代码80020009 vbs远程启动程序？ 用vbs打开程序 VBS问题 VBS高手进 vbs脚本如何启动程序？ 帮忙弄个vbs程序？ vbs问题，如何用vbs获取日期 一个vbs的问题