SecureCRT刷配置vbs脚本

 

Sub Main
      num0 = 0
      num1 = 256
      crt.Screen.Send "interface loopback 1" & chr(13)
      crt.Screen.Send "ip address 20.1.1.1 255.255.255.255" & chr(13)
      crt.Screen.Send "exit" & chr(13)
      crt.Screen.Send "arp 55.1.1.2 0000.1234.5555 arpa" & chr(13)
      While num0 < num1
        crt.Screen.Send "int tunnel " &num0 & chr(13)
        crt.Screen.Send "tunnel mode ipip " & chr(13)
        crt.Screen.Send "ip addr 10.1." &num0 & ".1/24" &chr(13)
        crt.Screen.Send "tunnel source loopback 1 " & chr(13)
        crt.Screen.Send "tunnel destination 40.1." &num0 &".1" & chr(13)
        num0 = num0 + 1
        crt.Screen.Send chr(1)
      WEnd
      num0 = 0
      While num0 < num1