home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / DATA / phb / scriptu.scp < prev    next >
Encoding:
Text File  |  2001-08-13  |  818 b   |  42 lines
  1. ; iPass Dial-Up Networking Script
  2. ;
  3. ; Copyright (C) 1997-2000 iPass Inc.
  4. ;
  5. ; Do not edit this script.  Connection to the
  6. ; remote access point requires this script.
  7. ;
  8. ; Future auto-updates of this script will not
  9. ; occur when editions are made to this script.
  10. ;
  11. proc main
  12.     integer count = 0
  13.     transmit "^M"
  14.     delay 1
  15.     transmit "^M"
  16.     delay 1
  17.     transmit "^M"
  18.     delay 1
  19.     while count < 5 do
  20.      transmit "^M"
  21.         waitfor "in:" until 2
  22.         if $SUCCESS then
  23.         goto DoLogin
  24.         endif
  25.         count = count + 1
  26.     endwhile
  27.     halt
  28. DoLogin:
  29. ;    delay 1
  30.     transmit $USERID, raw
  31.     transmit "^M"
  32.     waitfor "word: " until 2
  33.     transmit $PASSWORD, raw
  34.     transmit "^M"
  35.     waitfor "ppp" until 10
  36.      if $FAILURE then
  37.      goto Fail
  38.      endif
  39. Fail:
  40. endproc
  41.  
  42.