VBscript首次运行正常，后续无法循环查杀IE并重启问题求助

嘿，你的判断很准——这类问题大概率出在循环逻辑的持续性或进程处理的细节上！我来帮你拆解常见坑点，再给你一套修正后的脚本参考：

常见问题原因 #

• 循环只执行一次就终止：如果你的脚本没有写持续循环的逻辑，首次运行检测到进程处理完后就直接退出了，自然没法后续监控。
• IE进程查杀不彻底：IE有时候会启动多个iexplore.exe实例（比如多标签页），只杀单个进程可能残留，导致重启失败或脚本判断混乱。
• 重启时机过早：刚调用终止命令就立刻重启，旧进程还没完全退出，新进程启动会冲突，或者脚本误以为进程还在运行。

修正后的示例脚本 #

' 初始化WMI服务和Shell对象
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objShell = CreateObject("WScript.Shell")

' 配置参数：替换成你要检测的进程名和IE路径、目标网址
strTargetProcess = "你要检测的进程.exe"
strIEPath = "C:\Program Files (x86)\Internet Explorer\iexplore.exe" ' 64位系统用这个路径，32位去掉(x86)
strTargetURL = "https://你的目标页面.com"

' 持续循环监控（核心逻辑）
Do While True
    ' 检测目标进程是否存在
    Set colTargetProcesses = objWMIService.ExecQuery( _
        "SELECT * FROM Win32_Process WHERE Name = '" & strTargetProcess & "'")
    
    If colTargetProcesses.Count > 0 Then
        ' 1. 查杀所有IE进程，确保彻底关闭
        Set colIEProcesses = objWMIService.ExecQuery( _
            "SELECT * FROM Win32_Process WHERE Name = 'iexplore.exe'")
        For Each objProcess In colIEProcesses
            On Error Resume Next ' 避免进程已退出导致报错
            objProcess.Terminate()
            On Error Goto 0
        Next
        
        ' 2. 等待2秒，让进程完全退出（关键！）
        WScript.Sleep 2000
        
        ' 3. 以Kiosk模式重启IE
        objShell.Run strIEPath & " -k " & strTargetURL, 1, False
        WScript.Echo "检测到目标进程，已重启IE至Kiosk模式"
    End If
    
    ' 每隔10秒检测一次，可根据需求调整间隔（单位：毫秒）
    WScript.Sleep 10000
Loop

关键修复点说明 #

1. 持续循环：用Do While True实现无限循环，脚本会一直后台监控进程状态
2. 彻底查杀IE：遍历所有iexplore.exe实例并终止，避免残留
3. 延迟等待：增加WScript.Sleep让系统有时间彻底关闭进程，再启动新的IE
4. 错误处理：加入On Error Resume Next避免查杀已退出进程时抛出错误中断脚本

额外注意事项 #

• 脚本需要以管理员权限运行，否则可能没有权限终止进程
• 确认IE路径正确：32位系统用C:\Program Files\Internet Explorer\iexplore.exe，64位系统通常在Program Files (x86)下
• 可以调整循环间隔时间：如果不需要太灵敏，把10000（10秒）改大一点，减少系统资源占用

内容的提问来源于stack exchange，提问作者Kash