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:

#!/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.

$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?

#!/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:

$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.