dirkfuzzbucket
Technical User
I am new to procomm and have written the following script with the help of this forum.
The Idea is to dial up each of my remote Meridian sites and save the history file.
It will dial the first site and execute the dialup, logon and print the history file and clear down, the next site
it will dial then freeze at then enter name prompt.
If I try re-running the script it fails at the first enter name prompt unless I shut down procomm and re-open. Is there a "clearing" procedure I am not entering? If I run the scripts seperatly and close Procomm down after each one they all work but not together.
;Master script
proc main
execute "dial Bo.WAS"
execute "historydchstrunks.WAS"
execute "dial Bow.WAS"
execute "historydchstrunks.WAS"
execute "dial Con.WAS"
execute "historydchstrunks.WAS"
endproc
;dial Bo.WAS
;Bo_dialup_logon
proc main
string DialNum1 = "987654321"
set capture file "Bo.txt"
capture on
dialnumber DATA DialNum1 ; Dial Number.
clear
waitfor "Enter Name :"
transmit "maint^M"
waitfor "Enter Password:"
transmit "test123^M"
pause 4
transmit "^M"
transmit "^M"
waitfor ">"
transmit "logo^M"
waitfor ">"
transmit "logi^M"
waitfor "PASS?"
transmit "686123^M"
waitfor ">"
endproc
historydchstrunks.WAS
;History Capture file
proc main
transmit "ld 22^M"
waitfor "REQ "
transmit "prt^M"
waitfor "TYPE "
transmit "ahst^M"
waitfor "REQ"
transmit "****^M"
waitfor ">"
transmit "ld 60^M"
pause 3
transmit "stat^M"
waitfor "."
transmit "****^M"
waitfor ">"
transmit "ld 96^M"
waitfor "."
transmit "stat dch^M"
waitfor "."
transmit "****^M"
waitfor ">"
transmit "logo^M"
waitfor ">"
capture off
hangup
disconnect
clear
endproc
;dial Bow.WAS
;Bow_dialup_logon
proc main
string DialNum1 = "6542499"
set capture file "Bow.txt"
capture on
dialnumber DATA DialNum1 ; Dial Number.
clear
waitfor "Enter Name :"
transmit "1nt^M"
waitfor "Enter Password:"
transmit "658923^M"
pause 4
transmit "^M"
transmit "^M"
waitfor ">"
transmit "logo^M"
waitfor ">"
transmit "logi^M"
waitfor "PASS?"
transmit "test123^M"
waitfor ">"
endproc
The Idea is to dial up each of my remote Meridian sites and save the history file.
It will dial the first site and execute the dialup, logon and print the history file and clear down, the next site
it will dial then freeze at then enter name prompt.
If I try re-running the script it fails at the first enter name prompt unless I shut down procomm and re-open. Is there a "clearing" procedure I am not entering? If I run the scripts seperatly and close Procomm down after each one they all work but not together.
;Master script
proc main
execute "dial Bo.WAS"
execute "historydchstrunks.WAS"
execute "dial Bow.WAS"
execute "historydchstrunks.WAS"
execute "dial Con.WAS"
execute "historydchstrunks.WAS"
endproc
;dial Bo.WAS
;Bo_dialup_logon
proc main
string DialNum1 = "987654321"
set capture file "Bo.txt"
capture on
dialnumber DATA DialNum1 ; Dial Number.
clear
waitfor "Enter Name :"
transmit "maint^M"
waitfor "Enter Password:"
transmit "test123^M"
pause 4
transmit "^M"
transmit "^M"
waitfor ">"
transmit "logo^M"
waitfor ">"
transmit "logi^M"
waitfor "PASS?"
transmit "686123^M"
waitfor ">"
endproc
historydchstrunks.WAS
;History Capture file
proc main
transmit "ld 22^M"
waitfor "REQ "
transmit "prt^M"
waitfor "TYPE "
transmit "ahst^M"
waitfor "REQ"
transmit "****^M"
waitfor ">"
transmit "ld 60^M"
pause 3
transmit "stat^M"
waitfor "."
transmit "****^M"
waitfor ">"
transmit "ld 96^M"
waitfor "."
transmit "stat dch^M"
waitfor "."
transmit "****^M"
waitfor ">"
transmit "logo^M"
waitfor ">"
capture off
hangup
disconnect
clear
endproc
;dial Bow.WAS
;Bow_dialup_logon
proc main
string DialNum1 = "6542499"
set capture file "Bow.txt"
capture on
dialnumber DATA DialNum1 ; Dial Number.
clear
waitfor "Enter Name :"
transmit "1nt^M"
waitfor "Enter Password:"
transmit "658923^M"
pause 4
transmit "^M"
transmit "^M"
waitfor ">"
transmit "logo^M"
waitfor ">"
transmit "logi^M"
waitfor "PASS?"
transmit "test123^M"
waitfor ">"
endproc