home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 May / PCWorld_2000-05_cd.bin / Software / Servis / crt303 / ntcrt303.exe / EXAMPLE1.VBS < prev    next >
Encoding:
Text File  |  1999-08-26  |  653 b   |  23 lines
  1. #$language = "VBScript"
  2. #$interface = "1.0"
  3.  
  4. Sub main
  5.   ' turn on synchronous mode so we don't miss any data
  6.   crt.Screen.Synchronous = True
  7.  
  8.   ' Wait for a string that looks like "login: " or "Login: "
  9.   crt.Screen.WaitForString "ogin: "
  10.  
  11.   ' Send your username followed by a carriage return
  12.   crt.Screen.Send "username" & VbCr
  13.  
  14.   ' Wait for a tring that looks like "password: " or "Password: "
  15.   crt.Screen.WaitForString "assword:"
  16.  
  17.   ' Send your password followed by a carriage return
  18.   crt.Screen.Send "password" & VbCr
  19.  
  20.   ' turn off synchronous mode to restore normal input processing
  21.   crt.Screen.Synchronous = False
  22. End Sub
  23.