SecureCRT脚本批量执行备份交换机或者路由器配置文件测试通过。
此脚本可以根据你的需要修改,改成其他功能,希望有需要的同学扩展思路。
使用SecureCRT对所有交换机路由器批处理执行dis cu、sa命令的脚本
使用方法:
1、 在D盘新建一个文件夹,命名为backup,打开文件夹,新建list.txt,编辑这个文本文件,每行输入4列分别是:ip 用户名 密码 设备名称;
例如:111.50.0.1 huawei huawei@123 HW-NE5000E-1(有多少设备就写多少行)
2、将下载回来解压后的 SecureCRT脚本.vbs复制到D盘backup文件夹内;
3、在D盘backup文件夹中新建一个log文件夹,用于保存配置文件。然后再新建一个以日期为名字的文件夹用于区别多个备份。目录结构例如:d:\backup\log\20110810\
4、打开SecureCRT,点击菜单栏的 脚本-执行,选择下载回批处理脚本.vbs,点执行。
脚本中的目录、文件名、命令,大家可以自己改,自己研究一下,很简单的。
脚本内容:
# $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:\backup\list.txt",Forreading, False)
crt.Screen.Synchronous = True
do while file1.AtEndOfStream <> True
'读取每一行
line = file1.ReadLine
'分离IP,用户名,密码,设备名称
params = Split (line)
'telnet登录
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.WaitForString "Info:"
crt.session.LogFileName = "D:\backup\log\20221011\" & params(3) & ".txt"
crt.session.Log(true)
...............