home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / html / interway.cmd < prev    next >
OS/2 REXX Batch file  |  1995-02-24  |  3KB  |  124 lines
  1. #trace on
  2.  
  3. # Die Telefonnummer zum Provider
  4.  
  5. $nummer = "089952052"
  6.  
  7. # spezielle Modemkommandos k÷nnen in diese
  8. # Variable eingegeben werden. Dies wird evtl.
  9. # notwendig, wenn Ihr Modem in der Grundkonfiguration
  10. # keine brauchbare Verbindung herstellt.
  11.  
  12. $modemsetup = ""
  13.  
  14. # Die Zeichenkette, auf die das Script reagieren soll, wenn
  15. # es den Login Namen eingeben soll
  16.  
  17. $userprompt = "ogin:"
  18.  
  19. # Die Zeichenkette, auf die das Script reagieren soll, wenn
  20. # es das Pa▀wort eingeben soll
  21.  
  22. $passprompt = "assword:"
  23.  
  24. # Die Anzahl der WΣhlversuche, wenn das Script keine Verbindung
  25. # erhΣlt
  26.  
  27. %wiederholungen = 10
  28.  
  29. #
  30. #
  31. #----------------------------------------------------------
  32.  
  33. display \n"-----------------------------------------------------------"\n
  34.  
  35. if ![load $dialmode]
  36.    $dialmode = "p"
  37.    save $dialmode
  38. end
  39. if ![load $username]
  40.    display \n"!!!!FEHLER!!!!:"
  41.    display \n\n"Es wurde kein Login-Name angegeben."\n\n
  42.    display \n"-----------------------------------------------------------"\n
  43.    display \n"Bitte wΣhlen Sie das Kommando SETUP.CMD ⁿber das"\n
  44.    display "Menⁿ Dialler, um Login-Name, Pa▀wort und WΣhlmodus korrekt"\n
  45.    display "einzugeben."\n
  46.    abort
  47. end 
  48. if ![load $password]
  49.    display \n"!!!!FEHLER!!!!:"
  50.    display \n\n"Es wurde kein Pa▀wort angegeben."\n\n
  51.    display \n"-----------------------------------------------------------"\n
  52.    display \n"Bitte wΣhlen Sie das Kommando SETUP.CMD ⁿber das"\n
  53.    display "Menⁿ Dialler, um Login-Name, Pa▀wort und WΣhlmodus korrekt"\n
  54.    display "einzugeben."\n
  55.    abort
  56. end
  57.  
  58. display \n"Ihr Login-Name ist "$username\n
  59. if $dialmode = "p"
  60.    display "Ihr Modem wird mit Impulswahl wΣhlen."\n
  61. else
  62.    display "Ihr Modem wird mit Tonwahl wΣhlen."\n
  63. end
  64. display \n"-----------------------------------------------------------"\n
  65. display \n"Sind diese Angaben nicht korrekt, drⁿcken Sie bitte die ESC-Taste"\n
  66. display "und wΣhlen Sie das Kommando SETUP.CMD ⁿber das"\n
  67. display "Menⁿ Dialler, um Login-Name, Pa▀wort und WΣhlmodus korrekt"\n
  68. display "einzugeben."\n
  69. sleep 3
  70.  
  71. #
  72. # Modem initialisieren
  73. #
  74. sleep 3
  75. output "atz"\13
  76. if ! [input 10 OK\n]
  77.   display "Modem reagiert nicht!"\n
  78.   abort
  79. end
  80. #
  81. # spezielle Modemkommandos aktivieren
  82. #
  83. output "at"$modemsetup\13
  84. input 10 OK\n
  85. #
  86. # Modem wΣhlen lassen
  87. #
  88. %n = 0
  89. repeat
  90.   if %n = %wiederholungen
  91.     display \n"Anwahl nach "%wiederholungen" Versuchen abgebrochen"\n
  92.     abort
  93.   end
  94.   output "atd"$dialmode$nummer\13
  95.   %ok = [input 60 CONNECT]
  96.   %n = %n + 1
  97. until %ok
  98. input 10 \n
  99. #
  100. #  Eine gewisse Zeit warten, um die Wahrscheinlichkeit eines Modemabbruchs zu verringern
  101. #  
  102. #
  103. wait 10 dcd
  104. output \13
  105. #
  106. #  Auf Login-Zeichenkette warten und Username eingeben
  107. #
  108. input 30 $userprompt
  109. sleep 1
  110. output $username\13
  111. #
  112. # Auf Pa▀wort-Zeichenkette warten und Pa▀wort eingeben
  113. #
  114. input 30 $passprompt
  115. sleep 1
  116. output $password\13
  117. #
  118. # Login geglⁿckt. PPP aktivieren
  119. #
  120. sleep 2
  121. output "ppp"\n
  122. online
  123. end
  124.