TCL Script help

i have a PE router, that i want to develop TCL script that will check connectivity to all of the customers.

I am confused with the script. HEre is list of ip addresses i want to ping sourcing from each VRF< and results either PASSED or FAILED.

can some one help me?

set cust2 {
10.8.2.1
10.8.2.2
10.8.2.7
10.8.0.45
10.3.1.1
10.3.2.1
10.3.0.26
10.3.0.3
172.16.64.1
172.16.68.1
}
set cust1 {
167.10.10.5
10.10.0.1
10.10.0.5
}
foreach address {

} {
if { [regexp "(!!!!!!!!!)" [exec "ping vrf CUST1 $address rep 10" ]] } {
puts "$address ****** PASSED *******"
} else { puts "$address ****** FAILED ******" }
}
if { [regexp "(!!!!!!!!!)" [exec "ping vrf C-GRATE $addressgrate rep 10" ]] } {
puts "$address ****** PASSED *******"
} else { puts "$address ****** FAILED ******" }

Marcin Zgola
Internetwork Lead
CCIE #18676
Netrix, LLC
http://www.netrixllc.com
Ph. 847-964-5300
Fax.: 847-964-5350

Blogs and organic groups at http://www.ccie.net
Received on Thu Nov 11 2010 - 06:30:33 ART