通过SecureCRT自动批量备份交换机的vbs脚本

# $language = "VBScript"
# $interface = "1.0"
'说明：使用crt启动脚本，从文件里面读取设备IP地址、登录用户名、密码等，自动读取sh run导出配置文件并保存（crt记录会话功能）
Sub Main
'打开保存设备管理地址以及密码的文件，list.txt文件格式：IP 用户名 密码 交换机名称（命名规则自行定义，参数之间使用空格）
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,file1,line,str1,params
Set fso = CreateObject("Scripting.FileSystemObject")
Set file1 = fso.OpenTextFile("D:\SecureCRT\Data\scripts\list.txt",Forreading, False)
crt.Screen.Synchronous = True
DO While file1.AtEndOfStream <> True
'读出每行
line = file1.ReadLine
'分离每行的参数 IP地址params(0) 登录用户名params(1)，密码params(2)，备份文件命名规则params(3)等
params = Split (line)
crt.session.LogFileName = "D:\SecureCRT\Data\log\" & params(3) & params(4) & params(5) & ".txt"
crt.session.Log(true)
'Telnet到这个设备上，也可以修改为ssh，参数参考crt文档
crt.Session.Connect "/TELNET " & params(0)
'输入telnet用户名，如果未使用3a认证，可以修改为输入两次密码进入特权模式,接收的字符串增加，password、“>”、password
crt.Screen.WaitForString "User Name:"
crt.Screen.Send params(1) & vbcr
'读入登录密码
crt.Screen.WaitForString "Password:"
crt.Screen.Send params(2) & vbcr
crt.Screen.waitForString "#"
'备份目前runing-config配置
str1 = "show run"
crt.Screen.Send str1 & vbcr
crt.Screen.WaitForString " --More-- "
crt.Screen.Send " " & vbcr
'备份完成后退出（读到#字符结束，退出登录）
crt.Screen.waitForString "#"
crt.Session.Disconnect
loop
crt.Screen.Synchronous = False
End Sub