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

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