secureCRT 自动登录脚本

secureCRT自动登录脚本
名称beifen.vbs
#$language = "VBScript"
#$interface = "1.0"

Sub main
  crt.Screen.Synchronous = True

  crt.Screen.WaitForString "ogin: "
  crt.Screen.Send "username" & VbCr

  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "123" & VbCr

  crt.Screen.WaitForString ">"
  crt.Screen.Send "ssh cxchenjinwen@110.243.21.223" & VbCr    
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "cxwh123$" & VbCr 

  crt.Screen.WaitForString "Input device: "
  crt.Screen.Send "177" & VbCr
  crt.Screen.WaitForString "Input accounts:"
  crt.Screen.Send "5" & VbCr
 
  crt.Screen.WaitForString "S2-E-YZ-WANGGUAN's username:"
  crt.Screen.Send "username" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "password" & VbCr
 
  crt.Screen.WaitForString ">"
  crt.Screen.Send "telnet 110.243.28.78" & VbCr
  crt.Screen.WaitForString "ogin: "
  crt.Screen.Send "username" & VbCr
  crt.Screen.WaitForString "assword:"
  crt.Screen.Send "password" & VbCr
 
  crt.Screen.WaitForString "#"
   crt.Screen.Send "set -o vi" & VbCr
   crt.Screen.Send "TMOUT=0" & VbCr
  crt.Screen.Synchronous = False

End Sub