向东博客 专注WEB应用 构架之美 --- 构架之美，在于尽态极妍 | 应用之美，在于药到病除|赢在IT，Playin' with IT,Focus on Killer Application,Marketing Meets Technology.

#$language = "VBScript"
#$interface = "1.0"

Sub main
  ' turn on synchronous mode so we don't miss any data
  crt.Screen.Synchronous = True

  ' Wait for a string that looks like "login: " or "Login: "
  crt.Screen.WaitForString "ogin: "

  ' Send your username followed by a carriage return
  crt.Screen.Send "username" & VbCr

  ' Wait for a tring that looks like "password: " or "Password: "
  crt.Screen.WaitForString "assword:"

  ' Send your password followed by a carriage return
  crt.Screen.Send "password" & VbCr

  ' turn off synchronous mode to restore normal input processing
  crt.Screen.Synchronous = False
End Sub

############################################################
#$language = "VBScript"
#$interface = "1.0"
Sub main
   ' turn on synchronous mode so we don't miss any data
   crt.Screen.Synchronous = True    
   crt.Screen.WaitForString "ogin:"
   crt.Screen.Send "test" & VbCr
   crt.Screen.WaitForString "assword:"
   crt.Screen.Send "testtest" & VbCr
   crt.Screen.WaitForString ">>"
   crt.Screen.Send "telnet 212.75.30.146" & VbCr  
   crt.Screen.WaitForString "ogin:"
   crt.Screen.Send "test" & VbCr
   crt.Screen.WaitForString "assword:"
   crt.Screen.Send "haha" & VbCr  
   'crt.Screen.Send "export TERM=vt100" & VbCr
   crt.Screen.Send "ksh" & VbCr
   crt.Screen.Send "set -o vi" & VbCr
   crt.Screen.Send "stty erase ^H" & VbCr
   ' turn off synchronous mode for normal input processing
   crt.Screen.Synchronous = False
End Sub
############################################################