利用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}"