Tera Term macros

From: Richard Davidson (rich@myhomemail.net)
Date: Mon Sep 30 2002 - 00:33:06 GMT-3


Does anyone have a teraterm macro to erase and reload all pod routers? I wrote one to copy my router configs to text but was hoping some one has already written one for the erase and reloads.

Rich
timeout = 120
directory = "c:\my router configs\"
inputbox "name of log file for this test:" "callisma rules"
strconcat directory inputstr
logfilename = directory
directory = "c:\my router configs\"
:search_logfile
filesearch logfilename
if result=0 goto openlog
 inputbox "enter new filename:" "file already exists!"
 strconcat direcory inputstr
 logfilename = dircetory
 directory = "c:\my router configs\"
 goto search_logfile
:openlog
logopen logfilename 1 1

send "1"
sendln #13
wait "#"

sendln #$1a
sendln "u all"
sendln "show clock"
wait "#"

sendln "term length 0"
wait "#"
sendln "show running-config"
pause 16
sendln "show ip route"
wait "#"
sendln "term length 42"
wait "#"
pause 3

sendln #30#$78
wait "#"
send "2"
sendln #13
wait "#"

sendln #$1a
sendln "u all"
sendln "show clock"
wait "#"

sendln "term length 0"
wait "#"
sendln "show running-config"
pause 16
sendln "show ip route"
wait "#"
sendln "term length 42"
wait "#"
pause 3

sendln #30#$78
wait "#"
send "3"
sendln #13
wait "#"

sendln #$1a
sendln "u all"
sendln "show clock"
wait "#"

sendln "term length 0"
wait "#"
sendln "show running-config"
pause 16
sendln "show ip route"
wait "#"
sendln "term length 42"
wait "#"
pause 3

sendln #30#$78
wait "#"
send "4"
sendln #13
wait "#"

sendln #$1a
sendln "u all"
sendln "show clock"
wait "#"

sendln "term length 0"
wait "#"
sendln "show running-config"
pause 16
sendln "show ip route"
wait "#"
sendln "term length 42"
wait "#"
pause 3

sendln #30#$78
wait "#"
send "5"
sendln #13
wait "#"

sendln #$1a
sendln "u all"
sendln "show clock"
wait "#"

sendln "term length 0"
wait "#"
sendln "show running-config"
pause 16
sendln "show ip route"
wait "#"
sendln "term length 42"
wait "#"
pause 3

sendln #30#$78
wait "#"
send "6"
sendln #13
wait "#"

sendln #$1a
sendln "u all"
sendln "show clock"
wait "#"

sendln "term length 0"
wait "#"
sendln "show running-config"
pause 16
sendln "show ip route"
wait "#"
sendln "term length 42"
wait "#"
pause 3

sendln #30#$78
wait "#"
send "7"
sendln #13
wait "#"

sendln #$1a
sendln "u all"
sendln "show clock"
wait "#"

sendln "term length 0"
wait "#"
sendln "show running-config"
pause 16
sendln "show ip route"
wait "#"
sendln "term length 42"
wait "#"
pause 3

sendln #30#$78
wait "#"
send "8"
sendln #13
wait "#"

sendln #$1a
sendln "u all"
sendln "show clock"
wait "#"

sendln "term length 0"
wait "#"
sendln "show running-config"
pause 16
sendln "show ip route"
wait "#"
sendln "term length 42"
wait "#"
pause 3

sendln #30#$78
wait "#"
send "9"
sendln #13
wait "#"

sendln #$1a
sendln "u all"
sendln "show clock"
wait "#"

sendln "term length 0"
wait "#"
sendln "show running-config"
pause 16
sendln "show ip route"
wait "#"
sendln "term length 42"
wait "#"
pause 3

sendln #30#$78
logclose



This archive was generated by hypermail 2.1.4 : Mon Oct 07 2002 - 07:44:07 GMT-3