terrysdavid
Programmer
Is there a way to program seven hundred (700) auth. codes on a CS1000M by writing a script or something? It is extremely tedious to program them one by one.
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 TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Programming Auth Codes.
- Thread starter terrysdavid
- Start date
- Status
acewarlock
Technical User
It's easier to just let the system generate them for you. No muss no fuss. when finished just print them out.
- Thread starter
- #4
terrysdavid
Programmer
We are replacing an existing Option 61C that is being leased to us by the telco. So the employees at that site will be using back their existing auth codes. We have the list of pins to program in an excel file.
Try that one:
string info
proc main
fopen 0 "D:\Program Files\Procomm Plus\Capture\aut.txt" read text
transmit "new^M"
waitfor "TYPE "
transmit "aut^M"
waitfor "CUST "
transmit "0^M"
waitfor "SPWD "
transmit "0000^M"
waitfor "CODE "
read_next:
fgets 0 info
if feof 0
exit
endif
; strdelete info 5 2 ;Optional if txt file
transmit info
transmit "^M"
waitfor "CODE " 1
if success
goto read_next
endif
transmit "^M"
waitfor "CLAS "
transmit "0^M" ;or whatever
waitfor "CODE "
transmit info
transmit "^M"
waitfor "SARC "
transmit "^M"
waitfor "CLAS "
transmit "0^M"
waitfor "CODE "
goto read_next
endproc
string info
proc main
fopen 0 "D:\Program Files\Procomm Plus\Capture\aut.txt" read text
transmit "new^M"
waitfor "TYPE "
transmit "aut^M"
waitfor "CUST "
transmit "0^M"
waitfor "SPWD "
transmit "0000^M"
waitfor "CODE "
read_next:
fgets 0 info
if feof 0
exit
endif
; strdelete info 5 2 ;Optional if txt file
transmit info
transmit "^M"
waitfor "CODE " 1
if success
goto read_next
endif
transmit "^M"
waitfor "CLAS "
transmit "0^M" ;or whatever
waitfor "CODE "
transmit info
transmit "^M"
waitfor "SARC "
transmit "^M"
waitfor "CLAS "
transmit "0^M"
waitfor "CODE "
goto read_next
endproc
Firebird Scrambler
Systems Engineer
I've just a Procomm Plus script last week for use on AUT & AUB codes. Let me know if you need to try it out.
All the best
Firebird Scrambler
Meridian Programmer in the UK
All the best
Firebird Scrambler
Meridian Programmer in the UK
- Status
Similar threads