一，故障/项目描述
    一线工程师在项目实施与故障处理中，偶尔会遇到需要大批量的修改接入交换机配置或者升级交换机的情况。如果工程师一台台登陆交换机进行配置修改与升级，效率太低。医院网络机房建设|学校综合布线方案——金宏达网络13253392261
二，小窍门思路
    如果这些交换机的登录口令都相同，那么能否批量的修改交换机配置，或者批量升级交换机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脚本文件即可。
    金宏达网络专业提供医院网络机房建设，学校综合布线方案，政府网络工程，酒店智能化网络，网吧综合布线方案等，并免费上门勘察，为设计客户提供最经济实用的网络工程、系统集成解决方案。

金宏达网络提供专业的IT服务,包括:综合布线、弱电工程、机房建设、网络维护、安防监控以及各种网络产品代理，金宏达网络代理的网络产品包括：锐捷、华为、思科、TG-NET、艾泰、安达通、网康等各大品牌高端产品。

    金宏达网络拥有十几名系统工程师通过了锐捷、CISCO、华为等网络和综合布线的资格认证。经过十几年的开拓进取和不断努力，公司拥有一批先进的科研设备及一支专业化、高水准的营销团队、网络系统集成、能够为用户提供全面的解决方案。

金宏达网络以用户的需求为中心，一切为用户的利益着想，本着长远规划、稳步实施、实用为主的原则，依靠自身的技术实力、为用户的信息化建设做出贡献。

河南金宏达网络科技有限公司
 The HTC network science and technology limited company

项目工程网站：http://www.jhdwl.cn

 400免费热线：400-0377-771
 刘 经理：13253392261
 地   址：郑州市金水区文化路东风路数码港17楼