[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 290
  • Last Modified:

Automatic Script to Use CompuServe Via PPP

Can anyone provide an automatic script that I can use to connect to CompuServe using PPP?  I can connect via PPP, but I must type in ID and password each time.  The scripts I have created won't work.
0
lcauvin
Asked:
lcauvin
  • 3
1 Solution
 
gormenghastCommented:
Hi

I have emailed you an amended CIS script.
If it works you could delete this question and save your points for asking other questions if you want to.
0
 
gormenghastCommented:
Hi Again

I am glad the script worked.
I will post the contents of the script here tomorrow as I don't have it to hand at the moment. This will make the answer available for anyone else to view.
0
 
gormenghastCommented:
Here is the script: (replace your_id with your own compuserve id, replace your_passwd with your compuserve password)

!
@ANSWER
@HANGUP
EXIT 0
!
@ORIGINATE
!
CHRDELAY 1
!
@LABEL 10
PAUSE 1
WRITE "\13"
!
@LABEL 11
MATCHCLR
MATCHSTR 1 12 " Name:  "
MATCHREAD 300
NOTE "Connect script couldn't match \34 Name:  \34" 3
JUMP 99
!
@LABEL 12
PAUSE 1
WRITE "CIS\13"
!
@LABEL 13
MATCHCLR
MATCHSTR 1 14 " ID: "
MATCHREAD 300
NOTE "Connect script couldn't match \34 ID: \34" 3
JUMP 99
!
@LABEL 14
PAUSE 1
WRITE "your_id/go:pppconnect"
!
@LABEL 38
PAUSE 1
WRITE "\13"
!
@LABEL 39
PAUSE 5
MATCHCLR
MATCHSTR 1 40 "Password: "
MATCHREAD 300
NOTE "Connect script couldn't match \34Password: \34" 3
JUMP 99
!
@LABEL 40
IFSTR 12 41 ""
PAUSE 1
WRITE "^p\13"
JUMP 42
!
@LABEL 41
ASK 1 "Please enter password: "
WRITE "your_password\13"
!
@LABEL 42
MATCHCLR
MATCHSTR 1 90 " to "
MATCHREAD 300
NOTE "Connect script couldn't match \34 to \34" 3
JUMP 99
!
@LABEL 90
PAUSE 1
EXIT 0
!
@LABEL 99
PAUSE 60
EXIT -6002 "Connection script failed."

0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now