Tcl Ping Script Help

Question

Hello Community,
I'm currently getting assistance from Joseph and Mike on another ping script.
In the meantime, I have come across the attached Tcl Ping script that might help. However, each time I attempt to run the script from the command line as such
event manager run pingall5.tcl
I get the following error message
MX-IPS1#eve man run pingall5.tcl
invalid command name "ping"
    while executing
"ping $address"
    ("foreach" body line 1)
    invoked from within
"foreach address {
10.36.36.225
183.19.28.8
150.19.2.2
183.19.28.2
183.19.123.2} { ping $address
    invoked from within
"$slave eval $Contents"
    (procedure "eval_script" line 7)
    invoked from within
"eval_script slave $scriptname"
    invoked from within
"if {$security_level == 1} {       #untrusted script
     interp create -safe slave
     interp share {} stdin slave
     interp share {} stdout slave
    (file "tmpsys:/lib/tcl/base.tcl" line 50)
Tcl policy execute failed: invalid command name "ping"
So I tried another tcl script called pingall8, but it simply won't get applied to the router.
I have attached both scripts.
You're assistance will be greatly appreciated.
Cheers
Carlton

Answer 1

You can execute the policy with event manager run" command and that is running eem manually rather than having it trigger from some event.   Attached is a EEM policy that will ping each IP addresses and print it to the screen.
CISCO1941_WAASX#event manager run pinger.tcl
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 192.168.223.3, timeout is 2 seconds:
Success rate is 100 percent (5/5), round-trip min/avg/max = 1/1/4 ms
CISCO1941_WAASX#
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 192.168.223.126, timeout is 2 seconds:
Success rate is 100 percent (5/5), round-trip min/avg/max = 1/2/4 ms
CISCO1941_WAASX#
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 192.168.223.2, timeout is 2 seconds:
Success rate is 0 percent (0/5)
CISCO1941_WAASX#