学习资料-批量修改配置的脚本

VB脚本，一窍不通，好好学习一下工作都省很多事。
一，故障/项目描述

一线工程师在项目实施与故障处理中，偶尔会遇到需要大批量的修改接入交换机配置或者升级交换机的情况。如果工程师一台台登陆交换机进行配置修改与升级，效率太低。

二，小窍门思路

如果这些交换机的登录口令都相同，那么能否批量的修改交换机配置，或者批量升级交换机IOS呢？早期的交换机，我司有小工具可以进行批量操作。而新型号的交换机，我们能否也找到一些第三方工具软件来实现呢？

常用的CRT软件SecureCRT就提供了该功能，SecureCRT提供了强大的脚本工具。我们可以编写脚本文件来实现我们的需求。

三，小窍门实施

例如：一线工程师要批量修改接入交换机的1X相关配置，脚本编写内容如下：

Sub Main

crt.session.disconnect

IpArray=ReadToArray("IP2.txt") 'IP地址数组文件，脚本会调用IP2.txt中的IP地址表,所以l2switch.txt必须和脚本处于同一目录下

For i=0 To Ubound(IpArray)-1

Concmd="/telnet"+" "+IpArray(i)'创建登录命令模式为telnet

crt.session.Connect(Concmd)

crt.screen.send chr(13)

crt.Screen.WaitForString "assword:"

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

crt.Screen.WaitForString ">"

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

crt.Screen.WaitForString "assword:"

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

crt.Screen.WaitForString "#"

crt.Screen.Send "config t" & chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send "no dot1x filter-nonRG-su enable" & chr(13) '修改的配置

crt.Screen.WaitForString "#"

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

crt.Screen.WaitForString "#"

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

crt.screen.send chr(13)

crt.screen.send chr(13)

crt.Screen.WaitForString "#"

crt.Screen.Send chr(13)

crt.session.disconnect

Next

End Sub

Function ReadToArray(filespec)

Const ForReading = 1

Dim fso, theFile,i,RetString

Dim retArray()

Set fso = CreateObject("Scripting.FileSystemObject")

IF fso.FileExists(filespec) THEN

Set theFile = fso.OpenTextFile(filespec, ForReading,false,false)

i = 0

Do While theFile.AtEndOfStream <> True

RetString = Trim(theFile.ReadLine)

IF IsNull(RetString) <> True THEN

ReDim Preserve retArray(i+1)

retArray(i) = RetString

i=i+1

END IF

Loop

theFile.Close

ReadToArray = retArray

ELSE

ReadToArray= Null

MsgBox "配置文件无IP地址"+filespec

END IF

End Function

将上述配置在记事本中以VBS后缀名保存，并在同一目录下创建一个名为IP2.txt的文件，列出需要调整配置的交换机IP。

使用SecureCRT调用VBS脚本文件即可。

四，小窍门延伸

SecureCRT的脚本功能可以帮助工程师高效的进行网络设备的配置