Enter the following script and save it as a .vbs file:

[vb]Set obj = CreateObject(“WScript.Shell”)
obj.run”cmd”
WScript.Sleep 500

obj.SendKeys”telnet your.ip.add.ress”
obj.SendKeys(“{Enter}”)
WScript.Sleep 500

obj.SendKeys”username”  ‘telnet username
obj.SendKeys(“{Enter}”)
WScript.Sleep 500

obj.SendKeys”password”  ‘telnet password
obj.SendKeys(“{Enter}”)
WScript.Sleep 500

[/vb]