There was a recent post in the ScriptingAnswers.com forums about a Telnet COM object. I’m assuming the poster was looking for a way to automate a telnet session. Well there isnt’ a free and easy way. What you need is some way to pass a string of commands to the Telnet session. Well, when all else fails, the SendKeys method is a last resort.<\/p>\n
I won’t belabor the point about Telnet security or the benefits of using SSH or something else. You do what you have to do. Even though my demo script uses the XP Telnet client, you could probably adapt it for any remote console client.<\/p>\n
Here’s the demo script in it’s entirety. I’ll go through a few key sections below: <\/p>\n
‘TelnetDemo.vbs<\/font><\/p>\n Dim objShell Set objNetwork=CreateObject(“WScript.Network”) <\/font> <\/p>\n strTitle=”Telnet Demo” strComputer=InputBox(“What server or device do you want to connect to?”,_ strUsername=InputBox(“What credential do you want to use”,strTitle,_ strPassword=InputBox(“What password do you want to use?”,strTitle,_ Set objShell=CreateObject(“wscript.shell”) ‘Send login credentials ‘Send commands ‘make sure we get window again ‘Close session If you can launch a Telnet session with integrated credentials you can simplify a few things. This script assumes you need to enter a username and password so it starts by prompting you for connection information:<\/p>\n strComputer=InputBox(“What server or device do you want to connect to?”,_ strUsername=InputBox(“What credential do you want to use”,strTitle,_ strPassword=InputBox(“What password do you want to use?”,strTitle,_ With this information we’re ready to launch Telnet with the Run method.<\/p>\n objShell.Run “Telnet ” & strComputer WScript.Sleep 5000<\/font><\/p>\n Then we need to grab the window. You have to know what is in the title bar of the window you want to activate. With Telnet, I know it is “Telnet computername”.<\/p>\n objShell.AppActivate “Telnet ” & strComputer<\/font><\/p>\n I can then send the logon credentials. The ~ character is the same as {Enter}. Notice I’m also sleeping for 2 seconds to give the console a chance to keep up. I’ve found that you need to go slow with this approach and give Telnet time to process the keys you are sending.<\/p>\n ‘Send login credentials At this point I should have an active Telnet session and can begin sending commands. Again, I’ve found it more effective to split up commands and pause between them.<\/p>\n ‘Send commands If there is a chance that something else could have grabbed focus, you’ll want to call AppActivate again. You definitely want to do this when you’re ready to end your session.<\/p>\n ‘make sure we get window again At this point I can send the Exit command and the Telnet session will terminate. The Telnet window will dismiss itself in a few seconds. <\/p>\n objShell.SendKeys “exit” A few final words on SendKeys. You always need to make sure the right window has focus, otherwise key strokes will go to the wrong place. There is no easy way to verify that the telnet connection was successful. So if you ran this script and attempted to connect to an unavailable server or have the wrong credentials, the rest of the script will keep going, trying to send key strokes to whatever window currently has focus. You can mitigate this problem by closing all other apps other than a CMD prompt where you’re running the script.<\/p>\n Timing is everything with SendKeys, and especially with tools like Telnet. You’ll need to test in your environment to see how much time you need to pause between commands. Remember that wscript.sleep takes a value in milliseconds. A script like this may not be the speediest, but it can get the job done when there are no other alternatives.<\/p>\n<\/p>\n There was a recent post in the ScriptingAnswers.com forums about a Telnet COM object. I’m assuming the poster was looking for a way to automate a telnet session. Well there isnt’ a free and easy way. What you need is some way to pass a string of commands to the Telnet session. Well, when all else fails, the SendKeys method is a last resort.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[2,24],"tags":[],"class_list":["post-51","post","type-post","status-publish","format-standard","hentry","category-general","category-vbscript"],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/51","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/comments?post=51"}],"version-history":[{"count":0,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/51\/revisions"}],"wp:attachment":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/media?parent=51"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/categories?post=51"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/tags?post=51"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
Dim objNetwork <\/font> <\/p>\n
strDefaultServer=”Server01″
strDefaultUser=objNetwork.UserDomain & “\\” & objNetwork.UserName
strDefaultPassword=”P@ssw0rd” <\/font> <\/p>\n
strTitle,strDefaultServer)
If Len(strComputer)=0 Then WScript.quit <\/font> <\/p>\n
strDefaultUser)
If Len (strUsername)=0 Then WScript.Quit <\/font> <\/p>\n
strDefaultPassword)
If Len (strPassword)=0 Then WScript.Quit <\/font> <\/p>\n
‘Start Telnet
objShell.Run “Telnet ” & strComputer
‘Give app a chance to get started
WScript.Sleep 5000
objShell.AppActivate “Telnet ” & strComputer <\/font> <\/p>\n
objShell.SendKeys strUsername & “~”
WScript.Sleep 2000
objShell.SendKeys strPassword & “~”
WScript.Sleep 2000 <\/font> <\/p>\n
objShell.SendKeys “net localgroup administrators”
WScript.Sleep 200
objShell.SendKeys “~”
objShell.SendKeys “dir \/w”
WScript.Sleep 200
objShell.SendKeys “~”
objShell.SendKeys “netstat”
WScript.Sleep 200
objShell.SendKeys “~”
‘give lengthy commands time to finish
WScript.Sleep 10000 <\/font> <\/p>\n
objShell.AppActivate “Telnet ” & strComputer
‘run another command
objShell.SendKeys “net share”
WScript.Sleep 200
objShell.SendKeys “~” <\/font> <\/p>\n
‘make sure we get window again
objShell.AppActivate “Telnet ” & strComputer
objShell.SendKeys “exit”
WScript.Sleep 200
objShell.SendKeys “~”<\/font><\/p>\n
strTitle,strDefaultServer)
If Len(strComputer)=0 Then WScript.quit <\/font><\/p>\n
strDefaultUser)
If Len (strUsername)=0 Then WScript.Quit <\/font> <\/p>\n
strDefaultPassword)
If Len (strPassword)=0 Then WScript.Quit<\/font> <\/p>\n
<\/font>
We need to give the command time to start so the script sleeps 5 seconds.<\/p>\n
objShell.SendKeys strUsername & “~”
WScript.Sleep 2000
objShell.SendKeys strPassword & “~”
WScript.Sleep 2000<\/font><\/p>\n
objShell.SendKeys “net localgroup administrators”
WScript.Sleep 200
objShell.SendKeys “~”
objShell.SendKeys “dir \/w”
WScript.Sleep 200
objShell.SendKeys “~”
objShell.SendKeys “netstat”
WScript.Sleep 200
objShell.SendKeys “~”
‘give lengthy commands time to finish
WScript.Sleep 10000<\/font><\/p>\n
objShell.AppActivate “Telnet ” & strComputer<\/font><\/p>\n
WScript.Sleep 200
objShell.SendKeys “~”<\/font><\/p>\n