home *** CD-ROM | disk | FTP | other *** search
/ Everyones Internet / EV1NET.ISO / pc / data / 1031.scp < prev    next >
Encoding:
Text File  |  1999-10-18  |  1.1 KB  |  65 lines
  1. Script:
  2. #
  3. # set up some strings for dialling up
  4. #
  5. if ![load $username]
  6.   if [username "Enter your login username"]
  7.     save $username
  8.   end
  9. end
  10. if ![load $password]
  11.   if [password "Enter your login password"]
  12.     save $password
  13.   end
  14. end
  15. load $prefix
  16. load $modemsetup
  17. load $number
  18. $userprompt = "ogin:"
  19. $passprompt = "word:"
  20. %attempts = 10
  21. #
  22. #
  23. #----------------------------------------------------------
  24. #
  25. # initialize modem
  26. #
  27. output "atz"\13
  28. if ! [input 10 OK\n]
  29.   display "Modem is not responding"\n
  30.   abort
  31. end
  32. #
  33. # setup our modem commands
  34. #
  35. output $modemsetup\13
  36. input 10 OK\n
  37. #
  38. # send phone number
  39. #
  40. %n = 0
  41. repeat
  42.   if %n = %attempts
  43.     display "Too many dial attempts"\n
  44.     abort
  45.   end
  46.   output "atdt" $prefix $number\13
  47.   %ok = [input 60 CONNECT]
  48.   %n = %n + 1
  49. until %ok
  50. input 10 \n
  51. #
  52. #  wait for the username prompt
  53. #
  54. input 30 $userprompt
  55. output $username\13
  56. #
  57. # and the password
  58. #
  59. input 30 $passprompt
  60. output $password\13
  61. #
  62. # we are now logged in
  63. # The terminal server starts PPP automatically now
  64. # so we are done.
  65. #