[c-nsp] TCLsh + Ping TOS

[.....::::[Gardener] ::::.....]

OK, guys.

Let me share with you my script of TCL to make a lot of test over a CE
router.

Thanks to all for the information.


Router#Tclsh tftp://xxx.xxx.xxx.xxx/anything.tcl *Next-hop* *interface **
ipaddress*
** Variable **Next-hop*
** Variable interface*
** Variable ipaddress

**BOF

**set nexthop [lindex $argv 0]
set interface [lindex $argv 1]
set ipaddress [lindex $argv 2]

exec "terminal length 0"
puts "############################################"
puts "#####         SHOW VERSION          ####"
puts "############################################"
puts [show version]
puts "############################################"
puts "#####         SHOW INVENTORY          ####"
puts "############################################"
puts [show inventory]
puts "############################################"
puts "#####         SHOW INTERFACE        ####"
puts "############################################"
puts [show interface]
puts "############################################"
puts "#####     SHOW PROCESSES CPU HISTORY    ####"
puts "############################################"
puts [show processes cpu history]
puts "############################################"
puts "##### SHOW PROCESSES CPU SORTED 5 MIN.  ####"
puts "############################################"
puts [show processes cpu sorted | e 0.00%  0.00%  0.00%]
puts "############################################"
puts "#####         SHOW RUNNING-CONFIG   ####"
puts "############################################"
puts [show running-config]
puts "############################################"
puts "#####         SHOW IP ROUTE          ####"
puts "############################################"
puts [show ip route]
puts "############################################"
puts "#####         SHOW IP BGP          ####"
puts "############################################"
puts [show ip bgp]
puts "############################################"
puts "#####         SHOW IP BGP SUMMARY   ####"
puts "############################################"
puts [show ip bgp summary]
puts "############################################\n"
puts "#####     SHOW IP BGP ADVERTISED-ROUTES ####\n"
puts "############################################\n"
puts [show ip bgp neighbor $nexthop advertised-route]

puts
"##################################################################################\n"
puts
"##################################################################################\n"
puts "############################################\n"
puts "##### CONFIGURANDO CALIDADES DE PRUEBA  ####\n"
puts "############################################\n"
puts [conf t]
puts [class-map match-any rpvm_voz_P]
puts [match ip dscp 24]
puts [match ip dscp 40]
puts [match ip dscp 46]
puts [class-map match-any rpvm_video_P]
puts [match ip dscp 34]
puts [match ip dscp 36]
puts [match ip dscp 38]
puts [class-map match-any rpvm_datos_criticos_P]
puts [match ip dscp 16]
puts [match ip dscp 26]
puts [match ip dscp 28]
puts [match ip dscp 30]
puts [class-map match-any rpvm_business_P]
puts [match ip dscp 8]
puts [match ip dscp 18]
puts [match ip dscp 20]
puts [match ip dscp 22]
puts [exit]
puts [policy-map prueba]
puts [class rpvm_voz_P]
puts [class rpvm_video_P]
puts [class rpvm_datos_criticos_P]
puts [class rpvm_business_P]
puts [exit]
puts [interface $interface]
puts [service-policy input prueba]
puts [exit]
puts [exit]




puts "############################################"
puts "#####          PING CON SWEEP            ####"
puts "############################################"
typeahead "$ipaddress\n\n\n\n\y\n\n\n\n\n\n\V\n\n\y\n100\n1500\n100\n"
puts [ping ip]

puts "############################################"
puts "#####  PING 80 PAQUETES CON TOS 96      ####"
puts "############################################"
typeahead "$ipaddress\n80\n\n\n\y\n\n96\n\n\n\n\n\n\n"
puts [ping ip]
typeahead "\n"
puts "############################################"
puts "#####  SHOW POLICY-MAP INTERFACE INPUT  ####"
puts "############################################"
puts [show policy-map interface $interface input]

puts "############################################"
puts "#####                FIN                ####"
puts "############################################"
tclquit

*
*EOF

***
I know, there are sure are plenty of script better of this.. But i think,
it's good enough for me.

See Ya

Andres P. Spano


----------------------
NO STREES
ECO ATTITUD :D