home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / DATA / phb / scripts.scp < prev    next >
Encoding:
Text File  |  2001-08-13  |  789 b   |  41 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. ; REV: SZ/2-03-97
  12. ; Main entry point to script
  13. ;
  14. proc main
  15.     integer nTries = 3
  16.     delay 2
  17.     while nTries > 0 do
  18.         transmit "...^M"
  19.         waitfor "SITA NETWORK" then DoLogin until 5
  20.         nTries = nTries -1
  21.     endwhile
  22.     ; timed out
  23.     goto Abort
  24. DoLogin:
  25.     delay 2
  26.     transmit "NUI 37830001^M"
  27.     waitfor "password"
  28.     delay 2
  29.     transmit "98Z8VJ^M"
  30.     waitfor "active"
  31.     delay 1
  32.     transmit "9001252001^M"
  33.     waitfor "connected"
  34.     goto Done
  35. Abort:
  36.     ; allow manual completion
  37.     set screen keyboard on
  38.     halt
  39. Done:
  40. endproc
  41.