把以下代码保存为*.vbs文件，替换IP、用户名、密码。
Dim objShell Set objShell = CreateObject("Wscript.Shell") objShell.Run "cmd.exe",1,False WScript.Sleep 1000 objShell.SendKeys "telnet 192.168.1.25" WScript.Sleep 1000 objShell.SendKeys "{ENTER}" WScript.Sleep 3000 objShell.SendKeys "y"objShell.SendKeys "{ENTER}" WScript.Sleep 1000 objShell.SendKeys "User" objShell.SendKeys "{ENTER}" WScript.Sleep 1000objShell.SendKeys "Password" objShell.SendKeys "{ENTER}" 利用VBS脚本实现Telnet自动连接
原文地址：https://www.cnblogs.com/xunyu/p/8622864.html