使用 SecureCRT 批处理备份锐捷交换机配置脚本

使用SecureCRT批处理备份锐捷交换机配置脚本

已测试了SecureCRT脚本批量执行备份锐捷交换机配置文件的功能。 此脚本可以根据你的需要修改，改成其他功能，希望有需要的同学扩展思路。

使用SecureCRT批处理备份所有交换机配置的脚本， 使用方法：

1、在C盘新建一个文件夹，命名为SW_bak，打开文件夹，新建一个文本文件swlist.txt，编辑并保存这个文本文件.

每行输入4xx分别是：

交换机IP用户名密码enable密码； 例如： 192.168.

11.1 root password password 192.168.

12.1 root password password （有多少交换机就写多少行）

2、新建一个文本文件，将下面的代码（两条分割线内的内容，不包括分割线）复制到文本文件内，保存关闭。

将文本文件重命名为： 备份交换机配置批处理.vbs # $language =\# $interface = \

1 / 4

1.0\

'本脚本示范：

从一个文件里面自动读取设备IP地址，密码等，自动将设备配置备份Sub Main

'打开保存设备管理地址以及密码的文件

Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fso,file1,line,str1,params

Set fso = CreateObject(\Set file1 = fso.OpenTextFile(\\\ SW_bak\\swlist.txt \crt.Screen.Synchronous = True DO While file

1.AtEndOfStream <> True '读出每行 line = file 1.ReadLine

'分离每行的参数交换机IP用户名密码enable密码； params = Split (line)

crt.session.LogFileName = \\\ SW_bak\\log\\\\\(0) & \crt.session.Log(true)

2 / 4

crt.Session.Connect \(0)

'输入Username密码

crt.Screen.WaitForString \(1) & vbcr

crt.Screen.WaitForString \(2) & vbcr '进特权模式

crt.Screen.Send \

crt.Screen.WaitForString \(3) & vbcr

crt.Screen.waitForString \'备份目前runing-config配置 str1 = \crt.Screen.Send str1 & vbcr crt.Screen.WaitForString \crt.Screen.Send '备份完成后退出

crt.Screen.waitForString \crt.Session.Disconnect loop

crt.Screen.Synchronous = False End Sub

3 / 4

复制备份交换机配置批处理.vbs到c: \\ SW_bak\\文件夹内；\3、在c:

\\ SW_bak\\文件夹中新建一个log文件夹，用于保存配置文件。

4、在log文件夹内新建一个以日期为名字的文件夹用于区别多个备份。 目录结构： c:

\\ SW_bak\\log\\\\

5、打开SecureCRT，点击菜单栏的脚本-执行，选择c:

\\SW_bak\\内的备份所有文件夹内的备份交换机配置批处理.vbs，点执行。

4 / 4