运维开发网
广告位招商联系QQ:123077622
 
广告位招商联系QQ:123077622

利用SecureCRT实现网络设备自动备份-思科篇

运维开发网 https://www.qedev.com 2020-02-19 18:34 出处:51CTO 作者:tuolzb
新建文本文件(注意保存路径,本次测试路径为D:\backup\list.txt): x.x.x.x username password enable_password   (#注:如果没有enable密码可以不写;每项用空格分割)新建文本文件cisco.txt(路径D:\backup\cisco.txt),内容如下:# $language = "VBScript"# $interface
  1. 新建文本文件(注意保存路径,本次测试路径为D:\backup\list.txt):

     x.x.x.x username password enable_password   (#注:如果没有enable密码可以不写;每项用空格分割)

  2. 新建文本文件cisco.txt(路径D:\backup\cisco.txt),内容如下:

# $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       

        params = Split (line)

        crt.session.LogFileName = "D:\backup\cisco\201611\" & params(0) & ".txt"

        crt.session.Log(true)

        '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)

        

        '进入特权模式(enable)

        crt.Screen.Send "enable" & Chr(13)

        crt.Screen.waitForString "Password"

        crt.Screen.Send params(3) & Chr(13) 

    

        '执行sh run命令

        crt.Screen.Send "sh run" & Chr(13)

        crt.Screen.WaitForString " --More-- "

        crt.Screen.Send "                                           "

        crt.screen.send Chr(13)

        crt.Screen.waitForString "end" 

        crt.Screen.waitForString "#" 

        '执行sh ip int b命令 

        crt.Screen.Send "sh ip int b" & Chr(13)

        crt.Screen.Send "                        "

        crt.Screen.waitForString "#" 

        crt.screen.send Chr(13)

        '保存配置

        crt.Screen.Send "wr" & Chr(13)

        crt.Screen.waitForString "[OK]",8

        crt.Screen.waitForString "#" 

        crt.screen.send Chr(13)    

        '断开连接

        crt.Session.Disconnect         

       

        loop

        crt.Screen.Synchronous = False 

End Sub

(3)修改上面文本后缀个是为.vbs,即cisco.vbs;

(4)运行CRT软件,菜单栏-->脚本-->执行-->找到脚本路径D:\backup\cisco.vbs;

(5)查看备份文件保存路径

扫码领视频副本.gif

0

精彩评论

暂无评论...
验证码 换一张
取 消