TCL shell PING script

Here is the script to ping many IPs from a router, run this in tclsh.


foreach IP {
Ip1
Ip2
Ip3
...
IP100
}{ping $IP}