您好,参考
1)新建文本文件(注意保存路径,本次测试路径为D:\backup\list.txt):session
x.x.x.x username password enable_password (#注:若是没有enable密码能够不写;每项用空格分割)ide
(2)新建文本文件H3C.txt(路径D:\backup\H3C.txt),内容以下:oop
# $language = "Vbscript"测试
# $interface = "1.0"ip
'本脚本示范:从一个文件里面自动读取设备IP地址,密码等,自动将设备配置备份it
Sub Mainio
'打开保存设备管理地址以及密码的文件class
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地址 密码 En密码
params = Split (line)
crt.session.LogFileName = "D:\backup\h3c\201611\" & params(0) & ".txt"
crt.session.Log(true)
'Telnet到这个设备上
crt.Session.Connect "/TELNET " & params(0)
crt.Screen.WaitForString "Username:"
crt.Screen.Send params(1) & Chr(13)
'输入telnet密码
crt.Screen.WaitForString "Password:"
crt.Screen.Send params(2) & Chr(13)
'进特权模式
crt.Screen.Send "sup" & Chr(13)
crt.Screen.WaitForString "Password:"
crt.Screen.Send params(3) & Chr(13)
crt.Screen.waitForString ">"
'备份目前runing-config配置
str1 = "disp cur "
crt.Screen.Send str1 & Chr(13)
crt.Screen.WaitForString " ---- More ----"
crt.Screen.Send " "
'crt.Screen.Send Chr(13) " & vbcr
'备份完成后退出
crt.Screen.waitForString "return"
crt.Screen.waitForString ">"
'执行disp int br命令
crt.Screen.Send "disp int brief" & Chr(13)
crt.Screen.WaitForString " ---- More ----"
crt.Screen.Send " "
crt.Screen.waitForString ">"
crt.screen.send Chr(13)
crt.Session.Disconnect
loop
crt.Screen.SynchrOnous= False
End Sub
(3)修改上面文本后缀个是为.vbs,即H3C.vbs;
(4)运行CRT软件,菜单栏-->脚本-->执行-->找到脚本路径D:\backup\H3C.vbs;
(5)查看备份文件保存路径
(0)
暂无评论
教你个最简单的,CRT 可以录制脚本,你要么先录制一遍脚本,比如先手动保存一遍全网配置。后面把这个脚本不定时运行一下就行了。不用自己写脚本,比较方便。或者自己写个python 脚本。每天执行一下就行。
(0)
暂无评论
亲~登录后才可以操作哦!
确定你的邮箱还未认证,请认证邮箱或绑定手机后进行当前操作
举报
×
侵犯我的权益
×
侵犯了我企业的权益
×
抄袭了我的内容
×
原文链接或出处
诽谤我
×
对根叔社区有害的内容
×
不规范转载
×
举报说明
暂无评论