2024年6月11日发(作者：)

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

机的登录密码如下位置

rString ">"

"su" & VbCr

rString "Password:"

"huawei" & VbCr

rString ">"

其中，文件就是一行一个交换机的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("stemObject")

Set f = xtFile("d:", ForReading, 0)

Dim line, params

Do While fStream True

' Read each line of the printers file.

'

line = ne

' 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.

'

"telnet " & params(0) & " " & vbCR

'wait for switch prompt

rString "Username:"

"admin" & VbCr

' Wait for a tring that looks like "password: " or "Password: "

rString "Password:"

' Send your password followed by a carriage return

"admin" & VbCr

rString ">"

"su" & VbCr

rString "Password:"

"huawei" & VbCr

rString ">"

' execute some commands

"tftp 172.16.1.250 put " & params(0) & ".txt " &

VbCr

"quit" & VbCr

'leave out switch,stay in linux

rString "#", 3

' Cause a 3-second pause between sends by waiting for something

"unexpected"

' with a timeout value.

Loop

End Sub