home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Inside Multimedia 1996 February
/
IMM0296.ISO
/
direct
/
qsockpro.qip
/
VENTUREN.MPS
< prev
next >
Wrap
Text File
|
1995-12-16
|
1KB
|
58 lines
# VentureNet PPP login script (no SLIP)
# 08/08/95 BC
String username
String password
String framing
String IPAddress
# Trace on
SetTimeout 60
CfgGetValue "Username" username
if result = 0 then
GetInput "Enter your user name" username
if result = 0 then
Print "Warning, no username entered"
else
Print "Username set to ["; username; "]"
endif
endif
CfgGetValue "Password" password
if result = 0 then
GetPassword "Enter your password" password
if result = 0 then
Print "Warning, no password entered"
else
Print "Password set."
endif
endif
CommWaitFor "ogin:"
CommSend "dialin"
CommSend "%r"
CommWaitFor "ername:"
CommSend username
CommSend "%r"
CommWaitFor "wort:"
CommSend password
CommSend "%r"
CfgGetValue "Framing" framing
if result = 0 then
Abort "Can't read 'Framing' setting from qdeck.ini"
endif
# VJSLIP/SLIP...
if framing = "MPSLIP" then
CommWaitFor ") to"
CommReadIPAddr IPAddress
CfgSetValue "IPAddress" IPaddress
Print ""
Print "IP Address set to ["; IPAddress; "]"
else
Print "Framing is PPP"
endif
END