home *** CD-ROM | disk | FTP | other *** search
/ Cardinal Internet Access Solutions / Cardinal_Internet_Access_Solutions(1996-08-19).iso / files / web / winsock / login.cmd < prev    next >
OS/2 REXX Batch file  |  1994-01-10  |  1KB  |  80 lines
  1. #
  2. # initialize modem
  3. #
  4. output atz\13
  5. input 10 OK\n
  6. #
  7. # set modem to indicate DCD
  8. #
  9. output at&c1
  10. input 10 OK\n
  11. #
  12. # send phone number
  13. #
  14. output atdt242284\13
  15. #
  16. # my other number
  17. #
  18. #output atdt241644\13
  19. #
  20. # now we are connected.
  21. #
  22. input 30 CONNECT
  23. #
  24. #  wait till it's safe to send because some modem's hang up
  25. #  if you transmit during the connection phase
  26. #
  27. wait 30 dcd
  28. #
  29. # now prod the terminal server
  30. #
  31. output \13
  32. #
  33. #  wait for the username prompt
  34. #
  35. input 30 username:
  36. username Enter your username
  37. output \u\13
  38. #
  39. # and the password
  40. #
  41. input 30 password:
  42. password Enter your password
  43. output \p\13
  44. #
  45. # we are now logged in
  46. #
  47. input 30 >
  48. #
  49. # see who on for informational reasons.
  50. #
  51. output who\13
  52. input 30 >
  53. #
  54. # jump into slip mode
  55. #
  56. output slip\13
  57. #
  58. # wait for the address string
  59. #
  60. input 30 Your address is
  61. #
  62. # parse address
  63. #
  64. address 30
  65. input 30 \n
  66. #
  67. # we are now connected, logged in and in slip mode.
  68. #
  69. display \n
  70. display Connected.  Your IP address is \i.\n
  71. #
  72. #  ping a well known host locally...  our slip server won't work
  73. #  for a while
  74. #
  75. exec pingw 131.217.10.1
  76. #
  77. # now we are finished.
  78. #
  79.  
  80.