小编Adr*_*ian的帖子

我已多次搜索此错误代码并已访问多个站点以阅读响应.长话短说,还没有找到解决方案.

引用的一个页面:发送时出错(在vbscript中使用sendkeys的字符

这是我的代码:

set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("C:\Downloads\software\putty.exe -load navstat")

DIM date 
date = 301113

DIM tran1
tran1 = TAFFY

set objFSO = CreateObject("Scripting.FileSystemObject") 
set objFile = objFSO.OpenTextFile("C:\Users\Adrian\Desktop\Entries1.txt", ForReading) 

Do Until objFile.AtEndOfStream 
    strLine = objFile.ReadLine 
    If InStr(strLine, "JFK.GREKI3.MARTN..TOPPS") Then 
        set indi = 2 
        set tran1 = TOPPS 
    End If
Loop

发生了什么:我正在扫描文本字符串的.txt文件(Entries1.txt).如果它们出现,我需要设置相应的indi值(所以当indi稍后用作变量时它将使用正确的#)并更改tran1变量.

出于某种原因,我收到错误:

set objFile = objFSO.OpenTextFile

错误是

无效的过程调用或参数代码:800A0005

非常感谢帮助.