how to use telnet to connect to a switch

#How to use telnet to connect to a switch code#

If stringinstr($Recv1, 'Username:') > 0 Then Depending what the server replies. $Recv1 = TCPRecv($remoteserver, '1000') 1000 means max stringlen.Ĭonsolewrite($Recv1) what the server replies $remoteserver = tcpconnect('X.X.X.X', '23') client 2 TELNETserver, leave 'TCPNameToIP' out if you have IP only. How can i loop to the initial login again? Ok is the Exit the right way to close the socket?Īlso when the message comes up 'Connection to host lost'

I altered a wee bit since somtimes the switch asked Thanks a lot that is almost working for me. This is alot better coz you can manipulate the in- and catch the output alot more accurate. I'm very experienced with network programming. If you have questions or something, shoot.

#How to use telnet to connect to a switch code#

I think this is more the way you want to code this. tcpsend ( $remoteserver, $Username & ) elseif stringinstr ( $recv1, 'Enter your password' ) > 0 then tcpsend ( $remoteserver, $password & ) elseif stringinstr ( $recv1, 'Connection to host lost' ) > 0 then msgbox ( 16, 'error', 'Connection lost to host' ) or any other code what to do. KnockKnock Who's There? $Username = 'Boo' $password = 'BooWho?' Cry baby :D consolewrite ( $recv1 ) what the server replies if stringinstr ( $recv1, 'Enter your username' ) > 0 Then Depending what the server replies. sleep ( 100 ) until $remoteserver '-1' While 1 Sleep ( '100' ) $Recv1 = TCPRecv ( $remoteserver, '1000' ) 1000 means max stringlen.

#Include TcpStartUp ( ) $remoteserver = tcpconnect ( TCPNameToIP ( '), '23' ) client 2 TELNETserver, leave 'TCPNameToIP' out if you have IP only. Like sending a 'enter' command in this case and start the telnet session again?ĭont use the telnet from windows, build you own client. So the script won`t work anymore i have to manually login to the box and $delay = Ping($ip) + Ping($ip) + Ping($ip) this delay is to be sure that it is enough time to get the prompt back from the switchĬontrolSend('Telnet', '', '', '','copy '', '', '', '', sometimes the switch comes back with I have the following script whci works most of the time for me.ĭim $delay = 0, $ip = 'x.x.x.x', $passwd = 'xxxxxx'