SecureCRT脚本实现自动备份华为交换机配置

下面这个脚本能批量对交换机做配置备份工作，在使用时请根据情况更改脚本中交换机的登录密码如下位置

crt.Screen.WaitForString \ crt.Screen.Send \ crt.Screen.WaitForString \ crt.Screen.Send \ crt.Screen.WaitForString \

其中，name.txt文件就是一行一个交换机的IP地址，如： 172.16.1.1 172.16.1.2

------------------------------------------------------------请将下列脚本保存为*.VBS文件-----

# $language = \# $interface = \

' This script shows how to read in a file, and it demonstrates how to ' perform some preprocessing on data (splitting the file data into ' separate strings) before sending it to a server. ' Constant used by OpenTextFile() Const ForReading = 1 Sub main

' Open a file, read it in & send it one line at a time Dim fso, f

Set fso = CreateObject(\ Set f = fso.OpenTextFile(\d:\\name.txt\ Dim line, params

Do While f.AtEndOfStream True ' Read each line of the printers file. '

line = f.Readline

' Split the line up. Each line should contain 3 space-separated parameters params = Split( line )

' params(0) holds parameter 1, params(1) holds parameter 2, etc. '

' Send \ ' an appended CR. '

crt.Screen.Send \ & vbCR

'wait for switch prompt

crt.Screen.WaitForString \ crt.Screen.Send \

' Wait for a tring that looks like \ crt.Screen.WaitForString \

' Send your password followed by a carriage return crt.Screen.Send \

crt.Screen.WaitForString \ crt.Screen.Send \ crt.Screen.WaitForString \ crt.Screen.Send \huawei\ crt.Screen.WaitForString \

' execute some commands

crt.Screen.Send \ crt.Screen.Send \

'leave out switch,stay in linux crt.Screen.WaitForString \

' Cause a 3-second pause between sends by waiting for something \ ' with a timeout value. Loop End Sub