交换机SSH方式的批量备份的实现

交换机SSH方式的批量备份的实现

本程序适合用于中兴、思科等命令体系的设备，验证方式为SSH 加密

首先对交换机的信息保存为以下txt格式文件，每行分别依次为交换机的登录ip、用户名、密码、特权密码，中间用空格隔开。如allswip.txt：

10.100.100.X 用户名A 密码A 二级密码A

10.100.101.X 用户名B 密码B 二级密码B

10.100.102.X 用户名C 密码C 二级密码C ……………………………………………………

利用secureCRT（最好6.0版本以上）程序软件，点击菜单栏里的脚本，运行交换机名称登录程序.vbs 文件（代码如下），

#$language = "VBScript"

#$interface = "1.0"

crt.Screen.Synchronous = True

Sub Main

Const ForReading = 1, ForWriting = 2

Dim fso,file,str,params

Set fso = CreateObject("Scripting.FileSystemObject")

Set file = fso.OpenTextFile(" 文件路径/allswith.txt",Forreading, False)

crt.Screen.Synchronous = True

DO While file.AtEndOfStream <> True

str = file.ReadLine

params = Split (str)

cmd = "/SSH2 /L " & "用户名" & " /PASSWORD " & "密码" & " /C 3DES /M MD5 " & params(1)

crt.Session.Connect cmd

crt.screen.Send Chr(13)

crt.Screen.WaitForString ">"

crt.Screen.Send "en" & chr(13)

crt.Screen.WaitForString "Password:"

crt.Screen.Send "特权密码" & chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send "copy flash: /cfg/startrun.dat ftp: //FTP地址" ¶ms(2)& ".dat@FTP用户名:FTP密码" & chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send "exit" & chr(13)

crt.Session.disConnect

Loop

crt.Screen.Synchronous=False

End Sub