1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
tclsh foreach address { 172.16.1.1 172.16.2.1 172.16.12.1 172.16.12.2 172.16.13.1 172.16.13.3 172.16.23.2 172.16.23.3 172.16.3.1 192.168.101.1 192.168.102.1 192.168.103.1 } { ping $address } exit