# $language = "VBScript"
# $interface = "1.0"
Sub Main
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,file1,line,str1,params
Set fso = CreateObject("Scripting.FileSystemObject")
Set file1 = fso.OpenTextFile("D:\equipment.txt",Forreading, False)
crt.Screen.Synchronous = True
do while file1.AtEndOfStream <> True
line = file1.ReadLine
params = Split (line)
crt.session.LogFileName = "D:\CRT\" & params(0) & ".txt"
CRT.Session.Log(True)
crt.Session.Connect "/TELNET " & params(0)
crt.screen.WaitForString "Username:",1
crt.screen.send params(1) & Chr(13)
crt.Screen.WaitForString "Password:"
crt.Screen.Send params(2) & Chr(13)
crt.Screen.Send "enable" & Chr(13)
crt.Screen.waitForString "#"
crt.Screen.Send "sh run" & Chr(13)
crt.Screen.WaitForString " --More-- "
crt.Screen.Send " "
crt.screen.send Chr(13)
crt.Screen.waitForString "end"
crt.Screen.waitForString "#"
crt.Screen.Send "sh ip int b" & Chr(13)
crt.Screen.Send " "
crt.screen.send Chr(13)
crt.Screen.waitForString "#"
crt.screen.send Chr(13)
crt.Screen.waitForString "#"
crt.screen.send Chr(13)
crt.Screen.Send "wr" & Chr(13)
crt.Screen.waitForString "[OK]",8
crt.Screen.waitForString "#"
crt.screen.send Chr(13)
crt.Session.Disconnect
crt.Screen.Synchronous = False
loop
End Sub

哪个文件是空的？

你没往文件里写东西吧