Hi Jay,
Thanks for your resoponse. I tried with the suggested but it failed due to
timed out
(j.pl)
use Net::Telnet;
my $t = new Net::Telnet;
$t->open("slias10");
print($t->waitfor('/login:.*$/'));
$t->print("root");
sleep(2);
@forecast=$t->cmd("/usr/bin/ls");
print @forecast;
C:\>perl j.pl
HP
On 5/16/07, a b <[EMAIL PROTECTED]> wrote:
Hello,
I am trying to telnet to all m/c for which i haven't set password(only root
is a valid user)
any body can telnet using root user
But when i try to access through perl it
use warnings;
use Net::Telnet;
my $t = new Net::Telnet (Timeout => 10,Promp
Hello,
I am trying to telnet to all m/c for which i haven't set password(only root
is a valid user)
any body can telnet using root user
But when i try to access through perl it
use warnings;
use Net::Telnet;
my $t = new Net::Telnet (Timeout => 10,Prompt => '/bash\$ $/');
my @line;
$t->open("host