Les Grands Musees du Monde/LeGrandLouvre-CD1de3.iso/INTERNET/DIVERS/TRUMPET/LOGIN.CMD

OS/2 REXX Batch file | 1996-04-03 | 1KB | 67 lines

#
#   Script de connexion au Club Internet
#
if ![load $init]
  if [query $init "Entrez la chaine d'initialisation du modem"]
    save $init
  end
end

if ![load $number]
  if [query $number "Entrez le numΘro de tΘlΘphone"]
    save $number
  end
end
if ![load $username]
  if [username "Entrez votre login"]
    save $username
  end
end
if ![load $pass]
  if [query $pass "Entrez votre mot de passe"]
    save $pass
  end
end
$prompt = ""
$userprompt = "ogin:"
$passprompt = "assword:"
$slipcmd = "slip"
$addrtarg = "y IP adress"
$pppcmd = "ppp"

%attempts = 3
output \n
sleep 1
output +++
sleep 2
output ath0\n
sleep 3
display "Initialisation du modem"\n
output atz\n
if ! [input 10 OK\n]
  display "Le modem ne rΘpond pas"\n
  abort
end
output $init\13
input 10 OK\n
%n = 0
repeat
  if %n = %attempts
    display "Trop d'essais de numΘrotation"\n
    abort
  end
  display "Appel des services Grolier Interactive"\n
  output "atdt"$number\13
  %ok = [input 60 CONNECT]
  %n = %n + 1
until %ok
input 10 \n
output \13
input 30 $userprompt
output $username\13
input 30 $passprompt
output $pass\13
display " "\n
display "Si le message My IP address = xxx.xxx.xxx.xxx suit, vous Ωtes connectΘ α Internet"\n