1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
#!/usr/bin/perl -w
use strict;use warnings;
use Net::Telnet;
use Net::SNMP;
use lib "C:/Perl/site/lib";
my $username="admin";
my $passwd="pwd";
my $community = " public ";
my $snmp_port = 161;
my $oid = " 1.3.6.1.4.1.318.1.1.12.1.5, 1.3.6.1.4.1.318.1.1.12.1.1 ";
my $host ="x.x.x.x";
my $nom="x.x.x.x";
my ($session, $error) = Net::SNMP->session(-hostname => $host,
-timeout => 3,
-retries => 1,
-community => $community,
-port => $snmp_port
);
my $telnet = new Net::Telnet (Timeout => 25,Prompt =>'/User Name : /', Dump_Log => 'erreur.txt',) or die "la connection na pu aboutir:$!\n";
$telnet->open($nom);
$telnet->login($username, $passwd); |
Partager