首页 > 代码库 > SecureCRT自动备份-思科
SecureCRT自动备份-思科
利用SecureCRT脚本对思科设备进行批量备份：
（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\conf\" & 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 "#" ‘执行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.send Chr(13) crt.Screen.waitForString "#" crt.screen.send Chr(13) 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 crt.Screen.Synchronous = False loop End Sub
（3）修改上面文本后缀个是为.vbs，即cisco.vbs；
（4）运行CRT软件，菜单栏-->脚本-->执行-->找到脚本路径D:\backup\cisco.vbs；
（5）查看备份文件保存路径D:\backup\conf\。
SecureCRT自动备份-思科
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。