VBScript OpenTextFile过程调用或参数无效

因此，我已经阅读了关于这个问题的各种答案，并尽我所知实施了这些答案。即使在定义常量并检查以确保目标文件存在之后，我仍然收到此错误。这当然与传递OpenTextFile的可选参数有关——如果只传递文件路径和名称，代码将运行。但是，因为目标文件是Unicode格式的，所以这不适用于我的使用。更重要的是，在花了几个小时试图破解这个问题之后，我想了解这里发生了什么。我非常感谢任何提供的帮助。多谢各位

作为参考，我收到的错误是：

GetNewVersion.vbs中第17行第3列的未处理异常

0x800a0005-Microsoft VBScript运行时错误：过程调用或参数无效

    Option Explicit

    const ForReading = 1
    const TristateTrue = 1

    Dim strComputer, objWMIService, fso, ts, objShell, sTempDir, sPID, sFilePath, sFileName, colProcessList, objProcess,listInfo, lineInfo

    'Create File System Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    'Locate Temp Directory
    sTempDir = fso.GetSpecialFolder(2)
    sTempDir = sTempDir & "\DBUpdateInfo.txt"

    'Ensure DBUpdateInfo.txt exists
    If fso.FileExists(sTempDir) Then
        Set ts = fso.OpenTextFile(sTempDir,ForReading,False,TristateTrue)
    ...

---

TristateTrue的正确值为-1。

Wow。多大的疏忽啊。非常感谢你帮了我这个忙！