home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1996 February / IMM0296.ISO / direct / qsockpro.qip / CYBERIAP.MPS < prev    next >
Text File  |  1995-12-16  |  706b  |  38 lines
  1. String username
  2. String password
  3.  
  4. String IPAddress
  5.  
  6. # Trace on
  7. SetTimeout 60
  8.  
  9. CfgGetValue "Username" username
  10. if result = 0 then
  11.         GetInput "Enter your user name" username
  12.     if result = 0 then
  13.         Print "Warning, no username entered"
  14.     else
  15.         Print "Username set to ["; username; "]"
  16.     endif
  17. endif
  18.  
  19. CfgGetValue "Password" password
  20. if result = 0 then
  21.         GetPassword "Enter your password" password
  22.     if result = 0 then
  23.         Print "Warning, no password entered"
  24.     else
  25.         Print "Password set."
  26.     endif
  27. endif
  28.  
  29.     CommSend    "%r"
  30.         CommWaitFor     "ogin:"
  31.     CommSend    username
  32.     CommSend    "%r"
  33.     Print        ""
  34.         CommWaitFor     "assword:"
  35.     CommSend    password
  36.     CommSend    "%r"
  37. end
  38.