Ejaz Posted September 9, 2012 Share Posted September 9, 2012 Hi, First of all I am a newbie so please bear with me. I was going through couple of threads related to Telnet, but when trying to run, no results. What I want is to telnet, send couple of commands and show the results. I also want the user to provide the Login credentials to connect instead of hardcoding the information. Commands can be hardcoded. This is just the beginning of my small automation, once the above target is achieved than I can look to other things later. Any help will be appreciated. Regards. Link to comment Share on other sites More sharing options...
Moderators JLogan3o13 Posted September 10, 2012 Moderators Share Posted September 10, 2012 Hi, Ejaz. Have you attempted a forum search? A quick search of "Telnet" turned up a large number of hits, including which demonstrates sending commands. As with the Help file, the Search button is your friend. "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum! Link to comment Share on other sites More sharing options...
Ejaz Posted September 10, 2012 Author Share Posted September 10, 2012 (edited) Thank J for replying. Seriously I am really sorry if you have annoyed by that. Thats why i mentioned earlier, i was going through many scripts on the forum but none of them even giving any response at all. I want to see something in the output, even this output after login "Last login: Mon Sep 10 13:17:06 from 10.0.0.2 Sun Microsystems Inc. SunOS 5.10 Generic January 2005" TcpStartUp () $RouterIP = tcpconnect("10.0.0.1", "23") Do Sleep(100) Until $RouterIP <> "-1" While 1 Sleep(100) $TCPRecv = TCPRecv($RouterIP,"5000") ;~ ConsoleWrite($TCPRecv) ;for debug test ;~ MsgBox("","",$TCPRecv) ;for debug test If StringInStr($TCPRecv, "login:") > 0 Then TCPSend($RouterIP, "userid" & @crlf) ElseIf StringInStr($TCPRecv, "Password:") > 0 Then TCPSend($RouterIP, "pass" & @crlf) TCPSend($RouterIP, "xyz cmd1" & @crlf) TCPSend($RouterIP, "xyz cmd2" & @crlf) ElseIf StringInStr($TCPRecv, "END") > 0 Then ExitLoop EndIf WEnd TCPShutdown() Edited September 10, 2012 by Ejaz Link to comment Share on other sites More sharing options...
twitchyliquid64 Posted September 11, 2012 Share Posted September 11, 2012 (edited) So your trying to connect to the IP Address 10.0.0.1 Which generally is a gateway/router address. Unless you are in some massive business network which just HAPPENS to have a telnet server running at that address, attempting to connect via telnet will hang.Find a real telnet server and try your script out on that. Heres one I think: 94.142.241.111 Edited September 11, 2012 by twitchyliquid64 ongoing projects:-firestorm: Largescale P2P Social NetworkCompleted Autoit Programs/Scripts: Variable Pickler | Networked Streaming Audio (in pure autoIT) | firenet p2p web messenger | Proxy Checker | Dynamic Execute() Code Generator | P2P UDF | Graph Theory Proof of Concept - Breadth First search Link to comment Share on other sites More sharing options...
Ejaz Posted September 11, 2012 Author Share Posted September 11, 2012 (edited) Well I am in a LAN enviornment and it shud not hang, 10.0.0.1 was an example. Like the following wscript work but i want to have this done via Autoit. The following example open the telnet window after taking the user id and pass and then sending few commands and depicting the results. What I want to achieve is to do this while cmd window is hidden and then the results of the command is stored in a csv file. Dim objShell Dim objNetwork Set objNetwork=CreateObject("WScript.Network") Set fso = CreateObject("Scripting.FileSystemObject") Set objShell = CreateObject("Wscript.Shell") strTitle="XYZ" strDefaultServer="172.16.16.54" strDefaultUser="<Username>" strDefaultPassword="<Password>" strComputer=InputBox("What server or device do you want to connect to?",_ strTitle,strDefaultServer) If Len(strComputer)=0 Then WScript.quit strUsername=InputBox("Login ID",strTitle,_ strDefaultUser) If Len (strUsername)=0 Then WScript.Quit strPassword=InputBox("Your Password?",strTitle,_ strDefaultPassword) If Len (strPassword)=0 Then WScript.Quit Set objShell=CreateObject("Wscript.shell") 'Start Telnet objShell.Exec "Telnet " & strComputer 'Give app a chance to get started WScript.Sleep 2000 objShell.AppActivate "Telnet " & strDefaultServer 'Send login credentials objShell.Exec strUsername & "~" WScript.Sleep 500 objShell.Exec strPassword & "~" WScript.Sleep 500 'Send commands objShell.Exec "cmd1" WScript.Sleep 500 objShell.Exec "~" 'Send commands objShell.Exec "cmd2" WScript.Sleep 500 objShell.Exec "~" Do Until objExec.Status Wscript.Sleep 250 Loop Wscript.Echo objExec.StdOut.ReadAll() Edited September 11, 2012 by Ejaz Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now