are you running the tcl inside eem on the router?
the error you are getting here means that the command "ping ..." is run on a shell and that shell doesn't know what ping is, so you may be running it in ksh or from a station that has no ping concept.
in that case you may need to open the cli first and also use cli_exec for that, an example:
proc run_cli { clist } {
set rbuf ""
if {[llength $clist] < 1} {
return -code ok $rbuf
}
if {[catch {cli_open} result]} {
return -code error $result
} else {
array set cliarr $result
}
if {[catch {cli_exec $cliarr(fd) "enable"} result]} {
return -code error $result
}
foreach cmd $clist {
if {[catch {cli_exec $cliarr(fd) $cmd} result]} {
return -code error $result
}
append rbuf $result
}
if {[catch {cli_close $cliarr(fd) $cliarr(tty_id)} result]} {
puts "WARNING: $result"
}
return -code ok $rbuf
}
cheers!
xander
