利用VBS脚本实现Telnet自动连接

把以下代码保存为*.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 1000
objShell.SendKeys "Password"
objShell.SendKeys "{ENTER}"