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