如何查看脚本运行错误？我的VBS脚本无法运行且无错误提示

一、基础验证步骤 #

• 检查intFam_Id变量：确认该变量已正确赋值，若值包含空格或特殊字符，需用双引号包裹，避免命令行解析错误。
• 手动测试命令行：把拼接后的cmdLine内容复制到命令提示符中执行（替换实际的intFam_Id值），直接观察是否有报错或输出，快速定位是Python脚本问题还是VBS调用问题。
• 校验路径正确性：确认Python解释器路径c:/python37-32/python.exe和脚本路径C:/inetpub/webroot/hcoutreach.com/PythonScripts/PrintQrCodeConverter.py不存在拼写错误，文件实际存在且可访问。

二、修复脚本中的明显错误 #

你的脚本里使用了未定义的WaitForMilliseconds函数，这会直接导致脚本中断，需替换为VBS内置的WScript.Sleep：

While (ExecOperation.Status = 0)
    WScript.Sleep 100 ' 替换原WaitForMilliseconds(100)
WEnd

三、捕获标准错误输出 #

当前脚本仅读取标准输出（StdOut），但错误信息通常会输出到标准错误流（StdErr），需添加读取逻辑并记录日志：

' 获取标准错误流
Set StdErr = ExecOperation.StdErr
errValue = StdErr.ReadAll

' 将结果写入日志文件（需确保目录存在且有写入权限）
Set fso = CreateObject("Scripting.FileSystemObject")
Set logFile = fso.OpenTextFile("C:\temp\vbs_exec_log.log", 8, True)
logFile.WriteLine "[" & Now() & "] 执行命令：" & cmdLine
logFile.WriteLine "[" & Now() & "] 退出代码：" & ExCode
logFile.WriteLine "[" & Now() & "] 标准输出：" & value
logFile.WriteLine "[" & Now() & "] 错误输出：" & errValue
logFile.WriteLine "----------------------------------------"
logFile.Close

四、权限排查 #

• 若脚本在IIS环境运行（使用Server.CreateObject），检查IIS应用池的运行身份是否具备：
  • 执行Python解释器的权限
  • 读取PrintQrCodeConverter.py文件的权限
  • 写入日志目录（如C:\temp）的权限
• 尝试以管理员身份手动运行VBS脚本，排除权限不足导致的执行失败。

修改后的完整脚本示例 #

Set WshShell = Server.CreateObject("WScript.Shell")
Dim ExecOperation, ExCode, StdOut, StdErr, fso, logFile, value, errValue, cmdLine

python_program = "c:/python37-32/python.exe "
py_file = "C:/inetpub/webroot/hcoutreach.com/PythonScripts/PrintQrCodeConverter.py"

' 注意：若intFam_Id含特殊字符，需用双引号包裹
cmdLine = python_program & " " & py_file & " " & intFam_Id

Set ExecOperation = WshShell.Exec(cmdLine)
        
' 等待执行完成
While (ExecOperation.Status = 0)
    WScript.Sleep 100
WEnd

' 获取退出代码
ExCode = ExecOperation.ExitCode

' 获取标准输出和错误输出
Set StdOut = ExecOperation.StdOut
value = StdOut.ReadAll

Set StdErr = ExecOperation.StdErr
errValue = StdErr.ReadAll

' 记录日志
Set fso = CreateObject("Scripting.FileSystemObject")
Set logFile = fso.OpenTextFile("C:\temp\vbs_exec_log.log", 8, True)
logFile.WriteLine "[" & Now() & "] 执行命令：" & cmdLine
logFile.WriteLine "[" & Now() & "] 退出代码：" & ExCode
logFile.WriteLine "[" & Now() & "] 标准输出：" & value
logFile.WriteLine "[" & Now() & "] 错误输出：" & errValue
logFile.WriteLine "----------------------------------------"
logFile.Close

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