SecureCRT登录对多台H3C设备进行配置自动备份

版权说明

Copyright ?2006-2007 杭州华三通信技术有限公司及其许可者版权所有，保留一切

权利。

未经本公司书面许可，任何单位和个人不得擅自摘抄、复制本书内容的部分或全部，

并不得以任何形式传播。

H3C、、Aolynk、、H3Care、、TOP G、、IRF、NetPilot、Neocean、NeoVTL、SecPro、SecPoint、SecEngine、SecPath、Comware、Secware、Storware、NQA、VVG、V2G、V n G、PSPT、XGbus、N-Bus、TiGem、InnoVision、HUASAN、华三均为杭州华三通信技术有限公司的商标。对于本手册中出现的其它公司的商标、产品标识及商品名称，由各自权利人拥有。

保密承诺

本次服务中获取客户的保密信息仅用于H3C公司向客户交付涉及H3C解决方案与产

品服务（网络规划、设计、实施、运维、优化）。未经客户同意，H3C公司承诺对保

密信息不用于其他与客户服务无关的用途，不向任何与客户服务无关的第三方披露。

Any Confidential Information acquired in service will be used by H3C for the solely purpose of providing solutions and products service (network architecture, design, execute, running and maintenance, and optimization). Without the consent of customer, H3C shall not use the Confidential Information in any way that is not related to Customer’s service, or disclose to any third party that is not relevant to Customer’s service.

杭州华三通信技术有限公司

使用SecureCRT登录对多台H3C设备进行配

置自动备份

版本建议：SecureCRT版本用6.2以上版本

使用范围：该文档适用于H3C网络设备

一、对于采用用户名-密码或用户名-密码-超级密码的情形。

使用说明：

拷贝loginscript.vbs和loginuser.txt文件到D盘根目录，注意loginuser.txt 脚本必须为如下格式添加，注意超级密码不为空，即使是空格也行。

IP地址用户名密码超级密码

192.168.200.1 admin admin superkey

建立本地tftpserver，可以考虑使用3Cdaemon，设好配置文件保存路径，用记事本打开loginscript.vbs，修改赋给tftpserver的IP地址为对应的tftp服务器地址。

打开SecureCRT的界面，执行脚本loginscrip.vbs

脚本执行成功，保存配置到对应目录。

脚本说明，要求采用VB script 语言编写，并存成.vbs后缀以供调用。

# $language = "VBScript"

# $interface = "1.0"

'本脚本示范：从一个文件里面自动读取设备IP地址，密码等，自动将设备配置备份Sub Main

'打开保存设备管理地址以及密码的文件

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso,file1,line,str1,tftpstr,params,superquest,result,result2,tftpserver

Set fso = CreateObject("Scripting.FileSystemObject")

Set file1 = fso.OpenTextFile("d:\loginuser.txt",Forreading, False)

'设置tftp服务器IP地址

tftpserver="192.168.100.100"

crt.Screen.Synchronous = True

DO While file1.AtEndOfStream <> True

'读出每行

line = file1.ReadLine

'分离每行的参数IP地址用户名密码超级密码

params = Split (line)

'Telnet到这个设备上

crt.Session.Connect "/TELNET " & params(0)

'输入telnet用户名密码

crt.Screen.WaitForString "Username:"

crt.Screen.Send params(1) & vbcr

crt.Screen.WaitForString "Password:"

crt.Screen.Send params(2) & vbcr

'进特权模式

crt.Screen.Send vbcr& "super" & vbcr

crt.sleep 2000

crt.Screen.Send params(3) & VbCr

crt.screen.WaitForStrings(">")

crt.Screen.Send "save" & vbcr

If crt.Screen.WaitForString("[Y/N]") Then

crt.Screen.Send "Y" & VbCr

str1 = "backup(" & params(0) &")" & ".cfg"

crt.Screen.Send str1 & vbcr

result = crt.screen.WaitForStrings(">","[Y/N]")

If result = 2 Then

crt.Screen.Send "N" & VbCr

Else

crt.Screen.Send VbCr

End If

End If

crt.Screen.waitForString ">"

tftpstr = "tftp " & tftpserver &" put "&str1 & VbCr

crt.Screen.Send tftpstr

crt.Screen.waitForString ">"

crt.sleep 2000

crt.Session.Disconnect

loop

crt.Screen.Synchronous = False

End Sub

二、对于采用密码-超级密码的情形。

使用说明：

拷贝loginscript-2.vbs和loginpassword.txt文件到D盘根目录，注意loginpassword.txt脚本必须为如下格式添加，注意超级密码不为空，即使是空格也行。

IP地址密码超级密码

192.168.200.1 key superkey

建立本地tftpserver，可以考虑使用3Cdaemon，设好配置文件保存路径，用记事本打开loginscript-2.vbs，修改赋给tftpserver的IP地址为对应的tftp服务器地址。

打开SecureCRT的界面，执行脚本loginscrip-2.vbs

脚本执行成功，保存配置到对应目录。

脚本说明，要求采用VB script 语言编写，并存成.vbs后缀以供调用。# $language = "VBScript"

# $interface = "1.0"

'本脚本示范：从一个文件里面自动读取设备IP地址，密码等，自动将设备配置备份Sub Main

'打开保存设备管理地址以及密码的文件

Const ForReading = 1, ForWriting = 2, ForAppending = 8

Dim fso,file1,line,str1,tftpstr,params,superquest,result,result2,tftpserver

Set fso = CreateObject("Scripting.FileSystemObject")

Set file1 = fso.OpenTextFile("d:\loginpassword.txt",Forreading, False)

'设置tftp服务器IP地址

tftpserver="192.168.100.100"

crt.Screen.Synchronous = True

DO While file1.AtEndOfStream <> True

'读出每行

line = file1.ReadLine

'分离每行的参数IP地址密码超级密码

params = Split (line)

'Telnet到这个设备上

crt.Session.Connect "/TELNET " & params(0)

'输入telnet密码

crt.Screen.WaitForString "Password:"

crt.Screen.Send params(1) & vbcr

'进特权模式

crt.Screen.Send vbcr& "super" & vbcr

crt.sleep 2000

crt.Screen.Send params(2) & VbCr

crt.screen.WaitForStrings(">")

crt.Screen.Send "save" & vbcr

If crt.Screen.WaitForString("[Y/N]") Then

crt.Screen.Send "Y" & VbCr

str1 = "backup(" & params(0) &")" & ".cfg"

crt.Screen.Send str1 & vbcr

result = crt.screen.WaitForStrings(">","[Y/N]")

If result = 2 Then

crt.Screen.Send "N" & VbCr

Else

crt.Screen.Send VbCr

End If

End If

crt.Screen.waitForString ">"

tftpstr = "tftp " & tftpserver &" put "&str1 & VbCr

crt.Screen.Send tftpstr

crt.Screen.waitForString ">"

crt.sleep 2000

crt.Session.Disconnect

loop

crt.Screen.Synchronous = False End Sub