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

下面这个脚本能批量对交换机做配置备份工作，在使用时请根据情况更改脚本中交换机的登录密码如下位置
crt.Screen.WaitForString ">"
crt.Screen.Send "su" & VbCr
crt.Screen.WaitForString "Password:"
crt.Screen.Send "huawei" & VbCr
crt.Screen.WaitForString ">"
其中，name.txt文件就是一行一个交换机的IP地址，如：
172.16.1.1
172.16.1.2
------------------------------------------------------------请将下列脚本保存为*.VBS文件-----
# $language = "VBScript"
# $interface = "1.0"
' 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("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("d:\name.txt", ForReading, 0)
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 "mycommand" with the appended parameters from the file with
' an appended CR.
'
crt.Screen.Send "telnet " & params(0) & " " & vbCR
'wait for switch prompt
crt.Screen.WaitForString "Username:"
crt.Screen.Send "admin" & VbCr
' Wait for a tring that looks like "password: " or "Password: "
crt.Screen.WaitForString "Password:"
' Send your password followed by a carriage return
crt.Screen.Send "admin" & VbCr
crt.Screen.WaitForString ">"
crt.Screen.Send "su" & VbCr
crt.Screen.WaitForString "Password:"
crt.Screen.Send "huawei" & VbCr
crt.Screen.WaitForString ">"
' execute some commands
crt.Screen.Send "tftp 172.16.1.250 put vrpcfg.cfg " & params(0) & ".txt " & VbCr crt.Screen.Send "quit" & VbCr
'leave out switch,stay in linux
crt.Screen.WaitForString "#", 3
' Cause a 3-second pause between sends by waiting for something "unexpected"
' with a timeout value.
Loop
End Sub。