Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Multiple dialling

Status
Not open for further replies.

dirkfuzzbucket

Technical User
Jan 28, 2004
87
AU
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


 
Try chaning all of the .was files in the main script to the compiled .wax file. I think someone here was having a similar problem a few months ago. If you specify the .was file, the script gets recompiled, which is usually not necessary.


aspect@aspectscripting.com
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top