#$language = "VBScript"
#$interface = "1.0"
crt.Screen.Synchronous = True
' This automatically generated script may need to be
' edited in order to work correctly.
Sub Main
' 定义数组,有多少台交换机就定义多少数组,可以在excel中制作好IP列表
dim ip(63)
ip(0)= "192.168.2.1"
ip(1)= "192.168.2.2"
ip(2)= "192.168.2.3"
ip(3)= "192.168.2.4"
ip(4)= "192.168.2.6"
ip(5)= "192.168.3.3"
ip(6)= "192.168.3.4"
ip(7)= "192.168.3.5"
ip(8)= "192.168.3.6"
ip(9)= "192.168.3.8"
ip(10)= "192.168.3.9"
ip(11)= "192.168.3.10"
ip(12)= "192.168.3.11"
ip(13)= "192.168.3.12"
ip(14)= "192.168.3.13"
ip(15)=