# $language = "VBScript"
# $interface = "1.0"
'本脚本示范：从一个文件里面自动读取设备IP地址，密码等，自动将设备配置备份
Sub Main
'打开保存设备管理地址以及密码的文件
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,file1,line,str1,params
Set fso = CreateObject("Scripting.FileSystemObject")
Set file1 = fso.OpenTextFile("f:\loginuser.txt",Forreading, False)
timenow="2015-05-02\"
crt.Screen.Synchronous = True
DO While file1.AtEndOfStream <> True
'读出每行
line = file1.ReadLine
'分离每行的参数 IP地址 密码 En密码
params = Split (line)
crt.session.LogFileName = "F:\设备脚本\" & timenow & params(0) & ".txt"
crt.session.Log(true)
'Telnet到这个设备上
crt.Screen.Send "telnet " & params(0) & chr(13)
'输入telnet密码
crt.Screen.WaitForString "Username:"
crt.Screen.Send params(1) & chr(13)
crt.Screen.WaitForString "Password:"
crt.Screen.Send params(2) & chr(13)
'进特权模式
crt.Screen.Send vbcr& "super" & chr(13)
crt.Screen.Send params(3) & chr(13)
crt.Screen.waitForString ">"
'备份目前runing-config配置
str1 = "dis cu "
crt.Screen.Send str1 & vbcr
If crt.Screen.WaitForString ("---- More ----",3) = -1 Then
crt.Screen.Send " "
'备份完成后退出
crt.Screen.waitForString ">" & vbcrlf & "quit"
crt.Session.Disconnect
loop
crt.Screen.Synchronous = False
End Sub
======================================================
以上是脚本内容
提示错误如下
Microsoft VBScript 编译器错误
Error: ‘loop’语句缺少‘do’
File: F:\back cfg.txt
Line: 38
loop

问一下为什么我设置中文字体后汉字是躺着的

Loop 缺do，写得很清楚了。