ROS2.9.27网吧软路由ARP绑定之自动生成RSC

这几天将网吧更新一批机器，同时也淘汰一部分机器，至昨天才完成整个网吧的系统，由于机器变更，导致路由器上的ARP绑定就不正确了。整个网吧要一台台的添加ARP绑定太麻烦，于是从网维顺网服务端导出ARP列表。格式如下图所示：

 

对应复制相应的IP和MAC，也是一件非常累人的事，于是我就写了下面VBS。执行VBS后，程序会自动生成相应的脚本文件，导入路由即可。

VBS使用方法如下

将下面VBS代码复制到任意目录，修改代码中的配置项。配置项主要有三个：

mmLAN——局域网网卡名称。根据路由器配置设定，我这里是“LAN”如下图所示：

mmSourceFilePath——源ARP文件。从网维导出的ARP列表。VBS脚本就是根据这个列表的格式生成ROS2.9.27支持的RSC格式文件。该文件必须和VBS脚本文件在同一目录。

mmToFilePath——这个名字随便取，就是生成的文件。将生成的文件上传到路由器，通过im命令导入即可完成ARP绑定操作。执行成功后，会在该VBS脚本同目录下生成RSC格式文件。

 VBS脚本代码内容如下

'=========================================================================
' 以下是配置项
'=========================================================================
CONST mmLAN="LAN"'局域网网卡名称，我这里是LAN
CONST mmSourceFilePath="arp.txt"'源ARP文件
CONST mmToFilePath="arp.rsc"'目标文件，即要生成的ROS2.9.27的ARP脚本
'=========================================================================
' 以下程序代码在未明白其意思的情况下勿操作，否则会产生错误。
'=========================================================================
On Error Resume Next
Dim mmFSO:Set mmFSO=Wscript.CreateObject("Scripting.FileSystemObject")
If Not mmFSO.FileExists(mmFSO.getAbsolutePathName(mmSourceFilePath)) Then
 Set mmFSO=Nothing:mmFSO=Null
  Msgbox "源ARP文件没有找到，请检查路径是否正确！",16,"错误信息："
End IF
'=========================================================================
Dim f,tmpCon,tmpArr,N
Dim tmpLineArr,IP,MAC
Dim newArr(),i:i=0
Set f=mmFSO.OpenTextFile(mmFSO.getAbsolutePathName(mmSourceFilePath),1)
tmpCon=f.ReadAll
f.Close
tmpArr=Split(tmpCon,vbCrlf)
For N=0 To Ubound(tmpArr)
 IF tmpArr(N)<>"" Then'去掉空行
  tmpLineArr=Split(tmpArr(N)," ")
  IP=tmpLineArr(2)'分离出IP
  MAC=tmpLineArr(3)'分离出MAC
  ReDim Preserve newArr(i)
  newArr(i)="/ ip arp add address=" & IP & " mac-address=" & MAC & " interface=" & mmLAN
  i=i+1
 End IF
Next
ReDim Preserve newArr(i)
newArr(i)="/ interface ethernet set " & mmLAN & " arp=reply-only"
tmpCon=join(newArr,vbCrlf)'组合内容
Set f=mmFSO.createtextfile(mmFSO.getAbsolutePathName(mmToFilePath),true)
f.Write tmpCon'写入文件
f.Close:Set f=Nothing
Set mmFSO=Nothing:mmFSO=Null