Sat 14 Oct 2006
Mas sobre el TCL scripting en Cisco
Enviado al blog por el pinche cash segun el bajo la categoria cisco
Sin chismes (se el primer chismoso!)
He seguido cascareandole al TCL en el shell de cisco…
Aqui un escriptin que hace ping a 3 direcciones creadas en un arreglo
proc pingatumother {} {
set a(100.239.92.98) RUTER1
set a(104.267.230.138) RUTER3
set a(101.347.149.230) RUTER2
foreach i [array names a] {
exec "ping $i"
puts "!$i"
}
}
Y aqui la demo
Internet#! Se activa tclsh
Internet#tclsh
Internet#! Se manda el codigo a memoria
Internet(tcl)#proc pingatumother {} {
+> set a(100.239.92.98) RUTER1
+> set a(104.267.230.138) RUTER3
+> set a(101.347.149.230) RUTER2
+> foreach i [array names a] {
+> exec "ping $i"
+> puts "!$i"
+> }
+>}
Internet#! Se corre
Internet(tcl)#pingatumother
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 100.239.92.98, timeout is 2 seconds:
.....
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 104.267.230.138, timeout is 2 seconds:
.....
Type escape sequence to abort.
Sending 5, 100-byte ICMP Echos to 101.347.149.230, timeout is 2 seconds:
.....
pero aguas!!!!
No siempre funciona, verifica que tu router soporte el tcl correctamente, pues un par de routers los he perdido momentaneamente despues de intentar ejecutar los scripts de tcl
System returned to ROM by bus error at PC 0x62446DFC, address 0x1C at
Incoherencias parecidas y calificaciones a este post:
Loading ...
