telnet自动登录批处理

用vbs模仿键盘输入，实现telnet自动登录，取之于网，用之于网。
on error resume next                //告诉编译器遇到错误，继续执行下面的语句
dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run"cmd /k telnet 192.168.0.82"               //打开telnet 并输入ip
WshShell.AppActivate"telnet.exe"                       //激活窗口，为后面输入命令作准备
WScript.Sleep 2000         

WshShell.SendKeys"{ENTER}"

WshShell.SendKeys"krftp{ENTER}"                //发送用户名，密码，要运行的程序
WScript.Sleep 2000

WshShell.SendKeys"123456{ENTER}"
WScript.Sleep 2000

WshShell.SendKeys"cd /d d:\krdb{ENTER}"
WScript.Sleep 2000

WshShell.SendKeys"1.bat{ENTER}"

WshShell.run "cmd /c tskill telnet"            
WshShell.run "cmd /c tskill cmd"