Hi,
I am a new perl user. I have problem telnet to Cisco
PIX Firewall. Following is my testing perl script. I
used net::telnet::cisco module telnet to Cisco routers
or switches no problem. But, Cisco PIX Firewall not
working. Please give me some advises.
use Net::Telnet::Cisco;
use strict;
my $cnt_total=0;
my $result ='Active';
my $host1='192.168.1.1'; #--- PIX Firewall inside
Interface
my $username1='';
my $password1='pix123'; #---- The password tested fine
by manually telnet
my $password_enable1='pix456';
my @cmd_output=();
my $objt=Net::Telnet::Cisco->new(Errmode=>'return');
my $ok=$objt->open($host1) or $result ='NotActive';
print " Telnet (Port25) on $host1 is $result\n"; #---
Test
if ($result eq 'Active') {
my $login_ok1=$objt->login($username1, $password1);
my $login_ok2=$objt->enable($password_enable1);
print "host1 / login_ok1 / login_ok2 = $host1 /
$login_ok1 / $login_ok2\n"; #--- Test
if ($login_ok2) {
@cmd_output=$objt->cmd('terminal length 0'); #--- turn
off paging
@cmd_output = $objt->cmd('show ver');
print @cmd_output;
} #--- end if ($login_ok2)
} #--- end if ($result eq 'Active')
$ok=$objt->close;
__________________________________________________
Do you Yahoo!?
New DSL Internet Access from SBC & Yahoo!
http://sbc.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
