Telnet security may be of interest.

Martin

I am having the same issue as you mentioned earlier. I started the Telnet services on both the server but the script is failing with a timeout error. Could you please paste the code which is working for you?

use warnings;
use Net::Telnet;


$myIPaddress = "Host IP";
$myDefaultPassword = 'pwd';
$myUsername = "username";
$myHostname = "somehostname";

$OutputFile = "$myHostname" . "_" . ".txt";

open (OUTPUT, ">>$OutputFile");

$telnet = new Net::Telnet ( Timeout=>10,Errmode=>'die');
$telnet->open("$myIPaddress");
$telnet->print("$myUsername");
$telnet->print("$myDefaultPassword");
$telnet->print("enable");


@running = $telnet->waitfor("/$myHostname# \$/i");
$running = "@running";

print OUTPUT $running;

close (OUTPUT);
[download]

Hi Muralidharan, Could you please share the working code.

Hi Monks I executed same program,I got the following error "Unknown remote Host" ,I enable the telnet services on both servers.Please send the complete code how to connect remote server(windows).

Can you connect to the host via another mechanism, for example telnet from the command prompt?