2020-10-01 交换机通过CRT保存配置-SSH

交换机通过CRT保存配置-SSH

提前准备好address.txt
内容格式：IP 用户名 密码
PS：192.168.1.1 aiyi 123456
192.168.1.2 erha 123456
以下是配置文件，复制粘贴即可

$language = “VBScript”

$interface = “1.0”

'by aiyi
'本脚本示范：从一个文件里面自动读取设备IP地址，密码等，自动将设备配置备份
Sub Main
'打开保存设备管理地址以及密码的文件
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso,file1,line,str1,params
Set fso = CreateObject(“Scripting.FileSystemObject”)
'所需保存配置IP地址存放位置
str1=“C:\Program Files\back-up\address\address.txt”
Set file1 = fso.OpenTextFile(str1,Forreading, False)
crt.Screen.Synchronous = True
DO While file1.AtEndOfStream <> True
'读出每行
line = file1.ReadLine
'分离每行的参数 IP地址 密码
params = Split (line)
'在目录C:\Program Files\back-up\下创建年文件夹+月文件夹+日IP的.txt文件
str2=“C:\Program Files\back-up”
crt.session.LogFileName =str2 & date() & params(0) & “.txt”
crt.session.Log(true)
'SSH到这个设备上
crt.Session.Connect ("/SSH2 /PASSWORD “& params(2) & " " & params(1) & “@” & params(0))
'交换机执行命令，以华为为例
str3 = “display current-configuration”
'输出str3及回车
crt.Screen.Send str3 & vbcr
'识别到”---- More ----“执行下一步
'PS：多输入几个空格以免配置导的配置不全，注意”---- More ----“必须与在远程端输出的完全一致
crt.Screen.WaitForString “---- More ----”
crt.Screen.Send " " & vbcr
crt.Screen.Send " " & vbcr
'识别到”>" “return"等待6秒结束任务，PS：因交换机型号不同等待时间视情况而定，结束识别需按照具体情况，自己定义。
str4=”>"
str5=“return”
crt.Screen.waitForString str4 & vbcrlf & str5,6
crt.Session.Disconnect
loop
crt.Screen.Synchronous = False
End Sub
'写在最后：复制脚本文件到.txt重命名成.vbs文件，本脚本需要修改的地方是各个str字符，交换机执行命令视具体情况增加；
## CRT运行vbs文件步骤
1.打开CRT
2、选中执行脚本，执行即可