secureCRT 自动登录脚本

最新推荐文章于 2026-04-13 10:55:24 发布

原创最新推荐文章于 2026-04-13 10:55:24 发布 · 2.3k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#input #interface #脚本 #ssh

收录于

Other 专栏收录该内容

4 篇文章

订阅专栏

本文提供了一个使用VBScript编写的SecureCRT自动化登录脚本示例。该脚本通过发送预设的用户名和密码实现自动登录，并进行了一系列的后续操作如SSH连接、TELNET等。适合需要批量管理远程主机的系统管理员参考。

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