/usr/share/doc/libnet-snmp-perl/examples/snmpget.pl is in libnet-snmp-perl 6.0.1-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | #! /bin/env perl
# ============================================================================
# $Id: snmpget.pl,v 6.0 2009/09/09 15:05:32 dtown Rel $
# Copyright (c) 2000-2009 David M. Town <dtown@cpan.org>
# All rights reserved.
# This program is free software; you may redistribute it and/or modify it
# under the same terms as the Perl 5 programming language system itself.
# ============================================================================
use strict;
use warnings;
use Net::SNMP 6.0 qw( snmp_type_ntop DEBUG_ALL );
use Getopt::Std;
our $SCRIPT = 'snmpget';
our $VERSION = 'v6.0.0';
our %OPTS;
# Validate the command line options.
if (!getopts('a:A:c:dD:E:m:n:p:r:t:u:v:x:X:', \%OPTS)) {
usage();
}
# Do we have enough information?
if (@ARGV < 2) {
usage();
}
# Create the SNMP session.
my ($s, $e) = Net::SNMP->session(
-hostname => shift,
exists($OPTS{a}) ? (-authprotocol => $OPTS{a}) : (),
exists($OPTS{A}) ? (-authpassword => $OPTS{A}) : (),
exists($OPTS{c}) ? (-community => $OPTS{c}) : (),
exists($OPTS{D}) ? (-domain => $OPTS{D}) : (),
exists($OPTS{d}) ? (-debug => DEBUG_ALL) : (),
exists($OPTS{m}) ? (-maxmsgsize => $OPTS{m}) : (),
exists($OPTS{p}) ? (-port => $OPTS{p}) : (),
exists($OPTS{r}) ? (-retries => $OPTS{r}) : (),
exists($OPTS{t}) ? (-timeout => $OPTS{t}) : (),
exists($OPTS{u}) ? (-username => $OPTS{u}) : (),
exists($OPTS{v}) ? (-version => $OPTS{v}) : (),
exists($OPTS{x}) ? (-privprotocol => $OPTS{x}) : (),
exists($OPTS{X}) ? (-privpassword => $OPTS{X}) : (),
);
# Was the session created?
if (!defined $s) {
abort($e);
}
my @args = (
exists($OPTS{E}) ? (-contextengineid => $OPTS{E}) : (),
exists($OPTS{n}) ? (-contextname => $OPTS{n}) : (),
-varbindlist => \@ARGV,
);
# Send the SNMP message.
if (!defined $s->get_request(@args)) {
abort($s->error());
}
# Print the results.
for ($s->var_bind_names()) {
printf "%s = %s: %s\n",
$_,
snmp_type_ntop($s->var_bind_types()->{$_}),
$s->var_bind_list()->{$_};
}
# Close the session.
$s->close();
exit 0;
# [functions] ----------------------------------------------------------------
sub abort
{
printf "$SCRIPT: " . ((@_ > 1) ? shift(@_) : '%s') . ".\n", @_;
exit 1;
}
sub usage
{
print << "USAGE";
$SCRIPT $VERSION
Copyright (c) 2000-2009 David M. Town. All rights reserved.
Usage: $SCRIPT [options] <hostname> <oid> [...]
Options: -v 1|2c|3 SNMP version
-d Enable debugging
SNMPv1/SNMPv2c:
-c <community> Community name
SNMPv3:
-u <username> Username (required)
-E <engineid> Context Engine ID
-n <name> Context Name
-a <authproto> Authentication protocol <md5|sha>
-A <password> Authentication password
-x <privproto> Privacy protocol <des|3des|aes>
-X <password> Privacy password
Transport Layer:
-D <domain> Domain <udp|udp6|tcp|tcp6>
-m <octets> Maximum message size
-p <port> Destination port
-r <attempts> Number of retries
-t <secs> Timeout period
USAGE
exit 1;
}
# ============================================================================
|