Cek Ping Menggunakan TCL Script

TCL script dapat digunakan untuk melakukan banyak perintah sekaligus, salah satunya adalah ping.
Buat interface loopback dulu.

R1(config-if)#int lo1
R1(config-if)#ip address 1.1.1.1 255.255.255.255
R1(config-if)#int lo2
R1(config-if)#ip address 2.2.2.2 255.255.255.255
R1(config-if)#int lo3
R1(config-if)#ip address 3.3.3.3 255.255.255.255
R1(config-if)#int lo4
R1(config-if)#ip address 4.4.4.4 255.255.255.255
R1(config-if)#int lo5
R1(config-if)#ip address 5.5.5.5 255.255.255.255

Ketik di notepad seperti dibawah.

foreach address {
1.1.1.1
2.2.2.2
3.3.3.3
4.4.4.4
5.5.5.5
} {
ping $address
}

Sekarang ketikkan perintah tclsh terus paste kode diatas maka hasilnya seperti dibawah.

R1#tclsh
R1(tcl)#foreach address {
+>(tcl)#1.1.1.1
+>(tcl)#2.2.2.2
+>(tcl)#3.3.3.3
+>(tcl)#4.4.4.4
+>(tcl)#5.5.5.5
+>(tcl)#} {
+>(tcl)#ping $address
+>(tcl)#}
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 1.1.1.1, timeout is 2 seconds:
!!!!!
Success rate is 100 percent (5/5), round-trip min/avg/max = 1/2/4 ms
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 2.2.2.2, timeout is 2 seconds:
!!!!!
Success rate is 100 percent (5/5), round-trip min/avg/max = 1/3/4 ms
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 3.3.3.3, timeout is 2 seconds:
!!!!!
Success rate is 100 percent (5/5), round-trip min/avg/max = 1/2/4 ms
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 4.4.4.4, timeout is 2 seconds:
!!!!!
Success rate is 100 percent (5/5), round-trip min/avg/max = 1/2/4 ms
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 5.5.5.5, timeout is 2 seconds:
!!!!!
Success rate is 100 percent (5/5), round-trip min/avg/max = 1/1/4 ms
R1(tcl)#

Untuk keluar dari tclsh ketikkan tclquit.

R1(tcl)#tclquit
R1#