交换机通过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”