tclsh proc validate_ping {myip} { set myresult [ exec ping $myip ] if {[string match "*.....*" $myresult]} { puts " $myip is Unreachable" } } proc ping-internal {} { puts "Beginning Test" foreach iplist { 135.1.11.1 135.1.134.1 135.1.15.1 155.1.1.1 135.1.115.1 220.1.102.1 135.1.2.2 135.1.25.2 155.1.2.2 135.1.37.3 135.1.35.3 135.1.134.3 155.1.3.3 135.1.47.4 135.1.4.4 135.1.134.4 155.1.4.4 135.1.15.5 135.1.5.5 135.1.35.5 135.1.55.5 135.1.25.5 155.1.5.5 135.1.115.5 192.1.96.1 52.1.116.1 135.1.67.6 155.1.6.6 135.1.66.6 135.1.7.7 135.1.37.7 135.1.47.7 135.1.67.7 140.1.7.7 135.1.8.8 135.1.47.8 140.1.8.8 } {validate_ping $iplist} puts "Test Complete" } ping-internal