Perl code- using the Telnet module for remote login to a windows XP machine

sherrygomindes

Hi

I have written a perl script using the Telnet module. I need to remotely login in from one windows XP machine to another XP machine.

But i get errors which i can't figure out the reason.
Please someone help me its very very urgent.

here is my code:

Expand|Select|Wrap|Line Numbers

 #!/usr/bin/perl -w

use strict;

use Net::Telnet;
 
my $telnet = new Net::Telnet (Timeout=>10);

$telnet->open($ip_addr)or print "can't open the server";
 
$telnet->waitfor('/:/');
 
$telnet->print($login);

$telnet->waitfor('/:/');
 
$telnet->print($password);

$telnet->waitfor('/:/');
 
$error=$telnet->errmsg;
 
$telnet->cmd("mkdir ABC");

$error=$telnet->errmsg;
 
$telnet->close;

In this code i trying to login to a remote machine using telnet. and the task is to create a directory on the telnet server.(dir ABC).

i get an error:
command timed-out at D:\Perl_RemoteLogin\RemoteLogin_Telnet.pl line 27

Please can any one tell me whats going wrong in the code.

nithinpes

Try giving a timeout value for the commands that you pass.

Expand|Select|Wrap|Line Numbers

 
$cmd="mkdir ABC";

$telnet->cmd( String => $cmd, Timeout =>20,);

sherrygomindes

Hi nithinpes

This too didn't work. can you tell me where am i going wrong. i guess the matching is going wrong

nithinpes

Hi nithinpes

This too didn't work. can you tell me where am i going wrong. i guess the matching is going wrong

I am not sure what is wrong then..May be someone else would know.

truCido1

You'll probably find its failing on the command promt..its waiting for a certain prompt and not getting it. I've changed it so its just looking for : see if that works. What is your promt?

Expand|Select|Wrap|Line Numbers

 
#!/usr/bin/perl -w

      use strict;

      use Net::Telnet;
 
      my $telnet = new Net::Telnet (Timeout=>10);

      $telnet->open($ip_addr)or print "can't open the server";

      $telnet->waitfor(': $/i');

      $telnet->print($login);

      $telnet->waitfor(': $/i');

      $telnet->print($password);

      $telnet->waitfor(': $/i');

      $telnet->cmd("mkdir ABC");

      $telnet->close;

numberwhun

First, you really need to use code tags around the code you post to the forums. I have added them to your post so edit it and see how they are used.

As for your code, you don't want to do a print after the "open", you want to do a die and print the error that was produced, like so:

Expand|Select|Wrap|Line Numbers

$telnet->open($ip_addr) or die "Can't open the connection: $!";

The $! will contain the error message from the connection attempt and give you a clue as to why it is failing. Always use die when performing an action like opening a file or a connection or such and print the error. That way, your debugging is a little easier.

Regards,

Jeff

KevinADC

The code as posted looks like it should not even compile because $login has never been declared properly.

Perl code- using the Telnet module for remote login to a windows XP machine

Post your reply

Similar topics

Question stats

	Ask Question
Home Questions Articles Browse Topics Latest Top Members FAQ