home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1996 February / IMM0296.ISO / direct / qsockpro.qip / CYBERMND.MPS < prev    next >
Text File  |  1995-12-16  |  1KB  |  56 lines
  1. # CyberNet GmbH PPP
  2. # 05/12/95 - BC
  3.  
  4. String username
  5. String password
  6.  
  7. String IPAddress
  8.  
  9. # Trace on
  10. SetTimeout 60
  11.  
  12. CfgGetValue "Username" username
  13. if result = 0 then
  14.         GetInput "Enter your user name" username
  15.     if result = 0 then
  16.         Print "Warning, no username entered"
  17.     else
  18.         Print "Username set to ["; username; "]"
  19.     endif
  20. endif
  21.  
  22. CfgGetValue "Password" password
  23. if result = 0 then
  24.         GetPassword "Enter your password" password
  25.     if result = 0 then
  26.         Print "Warning, no password entered"
  27.     else
  28.         Print "Password set."
  29.     endif
  30. endif
  31.  
  32.     CommSend    "%r"
  33.         CommWaitFor     "ogin:"
  34.     CommSend    username
  35.     CommSend    "%r"
  36.     Print        ""
  37.         CommWaitFor     "assword:"
  38.     CommSend    password
  39.     CommSend    "%r"
  40.  
  41. # VJPPP/PPP...
  42.         Print           ""
  43.         Print   "Getting IP address for PPP..."
  44.         CommWaitFor ") to"
  45.         CommReadIPAddr IPAddress
  46. if      result < 7 then
  47.         abort "Invalid IP Address!"
  48. endif
  49.         CfgSetValue "IPAddress" IPaddress
  50.         Print           ""
  51.         Print   "IP Address set to ["; IPAddress; "]"
  52.         Print           ""
  53.  
  54. END
  55.  
  56.