Vbs程序批量修改防火墙路由-低调大师

Vbs程序批量修改防火墙路由

2017-11-05 651

近期朋友在外面做了一个项目，需要对网络架构做整改，明白需求后，准备第二天给客户做架构调整；据了解他们的有两条线路，一条电信、一条网通；两条线都是通过一个路由器进行出网的，他们有一个防火墙，需要将电信的网络切换到防火墙上，切换前，他就说需要添加一个路由表，我们知道电信的路由表比较多，所以需要手动去添加，所以在网上就下载了一个比较完整的电信路由表，但是网上下载的电信的路由表的子网是反向的，需要将反向的子网改成正向的才能使用，改的前提是是需要去计算。怎么去计算呢，用255减去反向子网的值，但后得到的结果作为准确值使用。所以就想到了vbs程序修改。

网上下载的路由表结构：

route outside 58.32.0.0 0.31.255.255

以下数据是我们从网上下载的完整的电信路由表。我们需要根据自己的需求更改为：

Route outside 58.32.0.0 255-0.255-31.255-255.255-255 +下一跳（106.34.168.2）

根据以上算法我们需要得到的结果是：

route outside 58.32.0.0 255.224.0.0 106.34.168.2

我们下载下来的电信路由表总共有445条，如果用手动改的话，工作量相当大。所以就想到了vbs,所以在此给大家展示一下。方便有需要的同学使用

需求明确后，我们开始编辑vbs脚本

 
        filename=
        "route.txt" 
       
        filename2=
        "route2.txt" 
       
        Set 
        WshShell =CreateObject(
        "WScript.Shell"
        ) 
       
        currentpath= WshShell.CurrentDirectory
       
        Set 
        fso = createobject(
        "Scripting.FilesystemObject"
        ) 
       
        Set 
        fileObj = fso.OpenTextFile(currentpath&"\"&filename,1) 
       
        Set 
        fileObj2 = fso.OpenTextFile(currentpath&"\"&filename2,2,true) 
       
        Do 
        while 
        Not 
        fileObj.AtEndOfStream 
       
        content = fileObj.ReadLine
       
        strResult=
        "" 
       
        If 
        RegExpTest(
        "^route.*"
        ,content) 
        Then 
       
        strArray=split(content,
        " "
        ,-1) 
       
        strLast=strArray(UBound(strArray))
       
        strLastArray=split(strLast,
        "."
        ,-1) 
       
        strLen=UBound(strLastArray)
       
        For 
        i=Lbound(strLastArray) to UBound(strLastArray) 
       
        str2=255-strLastArray(i)
       
        strResult=strResult&str2&
        "." 
       
        Next
       
        strResult=left(strResult,len(strResult)-1)
       
        For 
        i=Lbound(strArray) to UBound(strArray)-1 
       
        strFinalResult = strFinalResult &
        " "
        & strArray(i) 
       
        Next
       
        strFinalResult = strFinalResult & 
        " "
        &strResult &
        " " 
        & 
        "106.34.168.2 " 
        & vbcrlf 
       
        End 
        If 
       
        Loop
       
        fileObj2.Write strFinalResult
       
        fileObj2.Close
       
        fileObj.Close
       
        Function 
        RegExpTest(patternstr,str) 
       
        Dim 
        regEx, retVal 
        ' Create variable. 
       
        Set 
        regEx = 
        New 
        RegExp 
        ' Create regular expression. 
       
        regEx.Pattern = patternstr 
        ' Set pattern. 
       
        regEx.IgnoreCase = 
        False 
        ' Set case sensitivity. 
       
        retVal = regEx.Test(str) 
        ' Execute the search test. 
       
        If 
        retVal 
        Then 
       
        RegExpTest=
        True 
       
        Else
       
        RegExpTest=
        False 
       
        End 
        If 
       
        End 
        Function 
       
        msgbox 
        "finish"

注：我们执行脚本的时候，需要将route.txt文件和脚本文件存放在同一个目录下才可以执行。

我们执行前的内容：

执行后，会在同一个目录下生成一个route2.txt文件，该文件是修改后生成的。

脚本执行完成

我们查看生成后的文件

本文转自高文龙 51CTO博客，原文链接：http://blog.51cto.com/gaowenlong/1556815，如需转载请自行联系原作者

微信关注我们

原文链接：https://yq.aliyun.com/articles/429989

转载内容版权归作者及来源网站所有！

低调大师中文资讯倾力打造互联网数据资讯、行业资源、电子商务、移动互联网、网络营销平台。持续更新报道IT业界、互联网、市场资讯、驱动更新,是最及时权威的产业资讯及硬件资讯报道平台。

Mocha BSM产品亮点——分布式监控架构

业务需求与挑战企业经常会遇到下列场景： • 监控软件只支持监控200台主机，而企业却有500台主机需要监控。对于中大型企业，需要监控数以千计甚至万计的主机、网络设备、应用、服务等资源，很多监控软件不能满足这一需求，其监控的资源数量一多，服务器既要响应用户，又要处理监控数据、写数据库，性能消耗巨大，服务器很快濒临崩溃。 •企业的分公司遍布全国各地，需要监控的资源因此也分布在不同的局域网中大型企业需要监控的资源往往分布在总部及其全国各地甚至世界各地的分公司，即分布在不同局域网，其间通讯必须要通过广域网。 •监控软件服务器宕机，期间整个监控系统停顿，没有任何监控数据、报警等。监控软件一旦停止运作，没有任何备份可以运行，从而丢失了监控数据，也不能发送报警。关键功能与亮点 Mocha BSM采用CMS（Central Monitoring Server 中央监控服务器）、DCH（Data Collection Hub 数据采集集线器）、DMS（Distributed Monitoring Server 分布式监控服务器）三层分布式架构，如下图所示。DMS负责发现被监控资源、处理指标...

2017-11-06

647

在了解了Exchange Server 2010(以下简称EX 2010)的各个服务器角色后，如果我们需要在公司中部署EX 2010的话，需要考虑到不少方面，包括EX 2010的硬件，软件需求，部署的整个过程，先后步骤等等。理解Exchange Server 2010需求硬件需求：EX 2010仅支持X64位操作系统，无法在32位操作系统上安装内存需求：以下列出了EX 2010每个服务器角色需要的CPU,内存及操作系统需求：计规划EX 2010架构 1.邮件路由。即在EX 2010架构中，邮件如何传输，如何收发，这个跟我们的站点拓扑设计有关系。在EX 2010中，每个具有Mailbox Server角色的站点中，必须部署一台Hub Transport服务器。通常如果预算有限，我们可以将三个角色安装在同一个站点，同一台服务器上。如果我们将EX 2010的每个服务器角色分开安装的话，或者每个站点都存在角色的话，我们则需要考虑邮件如何路由。 2.服务器的物理存放位置。各角色服务器需要放置在哪里？每个站点需要放置哪些角色服务器？ 3.硬盘容量规划。我们需要规划足够的存储容量，以...

2017-11-06

579

资源下载

更多资源

优质分享App

近一个月的开发和优化，本站点的第一个app全新上线。该app采用极致压缩，本体才4.36MB。系统里面做了大量数据访问、缓存优化。方便用户在手机上查看文章。后续会推出HarmonyOS的适配版本。

Mario

马里奥是站在游戏界顶峰的超人气多面角色。马里奥靠吃蘑菇成长，特征是大鼻子、头戴帽子、身穿背带裤，还留着胡子。与他的双胞胎兄弟路易基一起，长年担任任天堂的招牌角色。

Spring

Spring框架（Spring Framework）是由Rod Johnson于2002年提出的开源Java企业级应用框架，旨在通过使用JavaBean替代传统EJB实现方式降低企业级编程开发的复杂性。该框架基于简单性、可测试性和松耦合性设计理念，提供核心容器、应用上下文、数据访问集成等模块，支持整合Hibernate、Struts等第三方框架，其适用范围不仅限于服务器端开发，绝大多数Java应用均可从中受益。

Sublime Text

Sublime Text具有漂亮的用户界面和强大的功能，例如代码缩略图，Python的插件，代码段等。还可自定义键绑定，菜单和工具栏。Sublime Text 的主要功能包括：拼写检查，书签，完整的 Python API ， Goto 功能，即时项目切换，多选择，多窗口等等。Sublime Text 是一个跨平台的编辑器，同时支持Windows、Linux、Mac OS X等操作系统。