Simple TCL script to ping multiple routers

show ip alias  – to get simple output of all IPs on the box

tclsh
foreach N {
“150.1.1.1 source lo0”
“150.1.2.2 source lo0”
} {ping $N}
exit