Vbscript 第63行的错误，我似乎无法调试。

这是我的第63行：Set ipAddrFile=fso.OpenTextFile（文件名，读取，ASCII） 第51行也出现了一个错误，但添加引号解决了我的问题。。嗯，它消除了这个错误。我尝试对第63行执行相同的操作，但无论发生什么，我都会得到错误。我还在windows 10和windows Vista虚拟计算机上运行此程序

这是我正在调试的脚本：

' VBScript: IP_FileWrite.vbs
' Written by: Kathleen Williams
' Date: 2/7/18
' Class: COMP230
' Professor: Professor James Lewis
' ===================================
' This initializes a 2-dimension array
' of IP Address. The first index +100
' is the room# and the second index+1
' is the computer# in the room.
dim ipAddress(5,3)
  ipAddress(0,0)="192.168.10.11"
  ipAddress(0,1)="192.168.10.12"
  ipAddress(0,2)="192.168.10.13"
  ipAddress(0,3)="192.168.10.14"
  ipAddress(1,0)="192.168.10.19"
  ipAddress(1,1)="192.168.10.20"
  ipAddress(1,2)="192.168.10.21"
  ipAddress(1,3)="192.168.10.22"
  ipAddress(2,0)="192.168.10.27"
  ipAddress(2,1)="192.168.10.28"
  ipAddress(2,2)="192.168.10.29"
  ipAddress(2,3)="192.168.10.30"
  ipAddress(3,0)="192.168.10.35"
  ipAddress(3,1)="192.168.10.36"
  ipAddress(3,2)="192.168.10.37"
  ipAddress(3,3)="192.168.10.38"
  ipAddress(4,0)="192.168.10.43"
  ipAddress(4,1)="192.168.10.44"
  ipAddress(4,2)="192.168.10.45"
  ipAddress(4,3)="192.168.10.46"
  ipAddress(5,0)="192.168.10.51"
  ipAddress(5,1)="192.168.10.52"
  ipAddress(5,2)="192.168.10.53"
  ipAddress(5,3)="192.168.10.54" 

' Define constants, variables and set object properties
CONST ForReading = 1
CONST ForWriting = 2
CONST ForAppending = 8 
Const ASCII = 0
'Defining the Variables
fileName = "C:\VBScripts\IP_Addresses.csv"
ipAddrStr = ""

' Create New Folder
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(fileName) Then
    fso.DeleteFile(fileName)
End If
Set ipAddrFile = fso.CreateTextFile("fileName,ForWriting,ASCII")

' Read from array and write a line of text.
For room = 0 to 5
  For computer = 0 to 3
    ipAddrStr = CStr(room+100) & "," & CStr(computer+1) & "," & _
     ipAddress(room,computer) & vbCrLf
    ipAddrFile.Write(ipAddrStr)
  Next
Next
ipAddrFile.close
' Set object properties and close file object.
Set ipAddrFile = fso.OpenTextFile(fileName,Read,ASCII)
WScript.Echo iPAddrFile.ReadAll
ipAddrFile.close

---

VBScript至少由两个人设计。一个天才，他定义了正确命名的函数和 它们的默认参数使标准任务（创建ASCII文件，从ASCII文件读取）变得简单：

Option Explicit

Const csFSpec = "48798232.txt"

Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")
Dim sD  : sD      = "could be an array, but is just a string for show: " & Now() 
' using *Create*TextFile + defaults to always create an ASCII File
Dim tsW : Set tsW = oFS.CreateTextFile(csFSPEC)
tsW.WriteLine sD
tsW.Close
' using OpenTextile + defaults to read from an ASCII File
' no need for a variable or .Close
WScript.Echo oFS.OpenTextFile(csFSPEC).ReadAll()

输出：

cscript 48798232.vbs
could be an array, but is just a string for show: 15.02.2018 04:45:06

然后来了一个住在家里的白痴，他把

OpenTextFile（）

搞得乱七八糟，随意设置了许多可选参数，以便可以用来创建文件。从那时起，人们把这些函数和它们的参数列表搞混了

Code 1: Set ipAddrFile = fso.CreateTextFile("fileName,ForWriting,ASCII")
Create: object.CreateTextFile(filename[, overwrite[, unicode]])
Open: object.OpenTextFile(filename[, iomode[, create[, format]]])
Code 2: Set ipAddrFile = fso.OpenTextFile(fileName,Read,ASCII)

他们从不确定参数、数据类型或顺序，而是使用绝望的方法，比如引用（错误的）参数列表

因此：仔细检查文档（例如，注意用于写入的布尔值与相同名称的数字iomode之间的差异）(