VBScript中If语句失效：执行无报错但未触发预期操作

核心问题点 #

• 检测逻辑未执行：定义了CheckTextFile子程序但从未调用，导致错误检测代码根本没运行
• 文件读取后指针异常：调用objPL.ReadAll后，文件指针直接跳到末尾，Do Until objPL.AtEndOfStream循环不会执行任何迭代
• 命令执行方法错误：oShell.AppActivate是用来激活指定标题的窗口，不是执行系统命令，应该用Run方法执行taskkill
• 冗余循环设计：既然已经用ReadAll读取了全部内容到LogData，没必要再用循环逐行检测，直接判断即可

修复后的代码 #

Dim objfso, LogData, oShell 
Const ForReading = 1    

Set objfso = CreateObject("Scripting.FileSystemObject")    
Set objPL = objfso.OpenTextFile("C:\-----", ForReading)    
Set oShell = WScript.CreateObject("WScript.Shell")  

Dim errorText 
errorText = "Invalid"   
LogData = objPL.ReadAll    
objPL.Close ' 读取完成后立即关闭文件，释放资源

' 直接检测文件内容中是否包含目标错误文本
If InStr(1, LogData, errorText, vbTextCompare) > 0 Then   
    ' 使用Run执行taskkill命令，强制终止WScript进程
    ' 0表示隐藏命令窗口，True表示等待命令执行完成
    oShell.Run "taskkill /F /IM WScript.exe", 0, True
End If

' 释放所有对象，避免内存泄漏
Set objPL = Nothing
Set objfso = Nothing
Set oShell = Nothing

关键修改说明 #

1. 移除无用循环：利用ReadAll获取的完整内容直接检测，无需循环遍历
2. 替换命令执行方式：用Run替代AppActivate，正确执行系统命令终止脚本进程
3. 优化资源管理：读取完成后立即关闭文件，避免不必要的资源占用
4. 添加文本比较选项：vbTextCompare实现不区分大小写的检测，若需要严格区分可移除该参数
5. 简化执行逻辑：删除冗余的子程序，直接执行错误检测与处理逻辑，确保代码运行到核心判断步骤

内容的提问来源于stack exchange，提问作者Terrence Busby Terrence209