SecureCRT批量telnet连接脚本,并备份配置

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)

...............