Evil_TTL> show | s

TCL Ping Script

Category:Tools -> TCL

If you wish to execute a ping sweep from your router you can use the following TCL ping script:

foreach ip {
172.16.1.1
172.16.1.2
172.16.1.3
172.16.1.4
} { puts [ exec 
"ping $ip" ] } 

Mind $ip is merely a variable, so any other could be used instead.

There are various ways on how you can actually run the script.

The basic way is to execute it from IOS command shell:

Router#tclsh
Router(tcl)#foreach ip {
+>(tcl)#172.16.1.1
+>(tcl)#172.16.1.2
+>(tcl)#172.16.1.3
+>(tcl)#172.16.1.4
+>(tcl)#} { puts [ exec "ping $ip" ] }

Type escape sequence to abort.
Sending 5100-byte ICMP Echos to 172.16.1.1timeout is 2 seconds:
!!!!!
Success rate is 100 percent (5/5), round-trip min/avg/max 4/44/100 ms

Type escape sequence to abort
.
Sending 5100-byte ICMP Echos to 172.16.1.2timeout is 2 seconds:
!!!!!
Success rate is 100 percent (5/5), round-trip min/avg/max 8/27/56 ms

Type escape sequence to abort
.
Sending 5100-byte ICMP Echos to 172.16.1.3timeout is 2 seconds:
!!!!!
Success rate is 100 percent (5/5), round-trip min/avg/max 1/26/96 ms

Type escape sequence to abort
.
Sending 5100-byte ICMP Echos to 172.16.1.4timeout is 2 seconds:
!!!!!
Success rate is 100 percent (5/5), round-trip min/avg/max 4/27/52 ms 

There is another way as well. You could save the TCL script to flash memory of your router and address to the script by using Embedded Event Manager (EEM) functionality by a trigger:

// no trigger example
event manager applet Ping
 event none
 action 1.0 cli command 
"enable"
 
action 1.1 cli command "tclsh flash:tcl/ping.tcl" 
// when an interface goes up trigger example
event manager applet Clear
 event syslog pattern 
"LINK-3-UPDOWN.*to up"
 
action 1.0 cli command "enable"
 
action 1.1 cli command "tclsh flash:tcl/ping.tcl" 

Let’s go further and make a KRON job for our TCL script to ping sweep every hour or 60 minutes:

evilttl(config)#kron policy-list Ping
evilttl(config-kron-policy)#cli tclsh flash:tcl/ping.tcl

evilttl(config)#kron occurrence Ping in 60 recurring
evilttl(config-kron-policy)#policy-list Ping

evilttl(config)#show kron schedule 
By privilege15