VBScript OpenTextFile无效的过程调用或参数

Question

所以我已经阅读了这个问题的各种答案，并且我已经根据我的理解实施了这些答案。即使在定义常量并检查以确保我的目标文件存在之后，我仍然会收到此错误。它肯定与传递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)
    ...

Answer 1

TristateTrue的正确值为-1。