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