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
26
27
28
|
#!/usr/bin/perl -w
use strict;
use BER;
use SNMP_Session;
use SNMP_util "0.86";
snmpmapOID (qw(locIfInBitsSec 1.3.6.1.4.1.9.2.2.1.1.6
locIfOutBitsSec 1.3.6.1.4.1.9.2.2.1.1.8
locIfDescr 1.3.6.1.4.1.9.2.2.1.1.28));
sub usage () { die "Usage: $0 community\@host\n"; }
my $host = shift @ARGV || usage ();
snmpmaptable ($host,
sub {
my ($index, $descr, $in, $out, $comment) = @_;
printf "%2d %-24s %10s %10s %s\n",
$index,
defined $descr ? $descr : '',
defined $in ? $in/1000.0 : '-',
defined $out ? $out/1000.0 : '-',
defined $comment ? $comment : '';
},
qw(ifDescr locIfInBitsSec locIfOutBitsSec locIfDescr));
|
