Foro - Perl en Español

por **peligro13** » 2011-02-14 23:03 @002

¿Qué tal? Necesito entrar a un router Cisco 1841 vía telnet u otra para habilitar y deshabilitar interfaces.

#!/usr/bin/perl
use strict;
use Net::Telnet::Cisco;
use POSIX qw(strftime);
my $hora= strftime("%Y-%m-%d", localtime);
my $session = Net::Telnet::Cisco->new(Host => 1.1.1.1);
$session->login('user, 'password’);
my @output = $session->cmd('show version');
open (F,">> log-cisco.txt");
print F "---- $hora ----\n";
print F "@output";
print F "---- ----";
$session->close;
close (F);
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Saludos.

Foro - Perl en Español

Entrar a router Cisco

Entrar a router Cisco

Publicidad

Re: Entrar a router Cisco

Re: Entrar a router Cisco

¿Quién está conectado?