home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1995 August
/
IMM0895.ISO01.iso
/
magazin
/
html
/
interway.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-02-24
|
3KB
|
124 lines
#trace on
# Die Telefonnummer zum Provider
$nummer = "089952052"
# spezielle Modemkommandos k÷nnen in diese
# Variable eingegeben werden. Dies wird evtl.
# notwendig, wenn Ihr Modem in der Grundkonfiguration
# keine brauchbare Verbindung herstellt.
$modemsetup = ""
# Die Zeichenkette, auf die das Script reagieren soll, wenn
# es den Login Namen eingeben soll
$userprompt = "ogin:"
# Die Zeichenkette, auf die das Script reagieren soll, wenn
# es das Pa▀wort eingeben soll
$passprompt = "assword:"
# Die Anzahl der WΣhlversuche, wenn das Script keine Verbindung
# erhΣlt
%wiederholungen = 10
#
#
#----------------------------------------------------------
display \n"-----------------------------------------------------------"\n
if ![load $dialmode]
$dialmode = "p"
save $dialmode
end
if ![load $username]
display \n"!!!!FEHLER!!!!:"
display \n\n"Es wurde kein Login-Name angegeben."\n\n
display \n"-----------------------------------------------------------"\n
display \n"Bitte wΣhlen Sie das Kommando SETUP.CMD ⁿber das"\n
display "Menⁿ Dialler, um Login-Name, Pa▀wort und WΣhlmodus korrekt"\n
display "einzugeben."\n
abort
end
if ![load $password]
display \n"!!!!FEHLER!!!!:"
display \n\n"Es wurde kein Pa▀wort angegeben."\n\n
display \n"-----------------------------------------------------------"\n
display \n"Bitte wΣhlen Sie das Kommando SETUP.CMD ⁿber das"\n
display "Menⁿ Dialler, um Login-Name, Pa▀wort und WΣhlmodus korrekt"\n
display "einzugeben."\n
abort
end
display \n"Ihr Login-Name ist "$username\n
if $dialmode = "p"
display "Ihr Modem wird mit Impulswahl wΣhlen."\n
else
display "Ihr Modem wird mit Tonwahl wΣhlen."\n
end
display \n"-----------------------------------------------------------"\n
display \n"Sind diese Angaben nicht korrekt, drⁿcken Sie bitte die ESC-Taste"\n
display "und wΣhlen Sie das Kommando SETUP.CMD ⁿber das"\n
display "Menⁿ Dialler, um Login-Name, Pa▀wort und WΣhlmodus korrekt"\n
display "einzugeben."\n
sleep 3
#
# Modem initialisieren
#
sleep 3
output "atz"\13
if ! [input 10 OK\n]
display "Modem reagiert nicht!"\n
abort
end
#
# spezielle Modemkommandos aktivieren
#
output "at"$modemsetup\13
input 10 OK\n
#
# Modem wΣhlen lassen
#
%n = 0
repeat
if %n = %wiederholungen
display \n"Anwahl nach "%wiederholungen" Versuchen abgebrochen"\n
abort
end
output "atd"$dialmode$nummer\13
%ok = [input 60 CONNECT]
%n = %n + 1
until %ok
input 10 \n
#
# Eine gewisse Zeit warten, um die Wahrscheinlichkeit eines Modemabbruchs zu verringern
#
#
wait 10 dcd
output \13
#
# Auf Login-Zeichenkette warten und Username eingeben
#
input 30 $userprompt
sleep 1
output $username\13
#
# Auf Pa▀wort-Zeichenkette warten und Pa▀wort eingeben
#
input 30 $passprompt
sleep 1
output $password\13
#
# Login geglⁿckt. PPP aktivieren
#
sleep 2
output "ppp"\n
online
end