SNMP编程

开发平台：

C/C++

snmpping.pl：源码内容

							#!/usr/sepp/bin/perl
use lib qw(../../run);
use BER;
require 'SNMP_Session.pm';
my $host = @ARGV[0];
my $community = @ARGV[1];
my $port = 161;
$session = SNMP_Session->open ($host, $community, $port) 
	|| die "couldn't open SNMP session to $host";
$oid1 = encode_oid (1, 3, 6, 1, 2, 1, 1, 1, 0);
if ($session->get_request_response ($oid1)) {
     ($bindings) = $session->decode_get_response($session->{pdu_buffer});
        while ($bindings ne '') {
        ($binding,$bindings) = &decode_sequence ($bindings);
        ($oid,$value) = &decode_by_template ($binding, "%O%@");
        print $pretty_oids{$oid}," => ",
        &pretty_print ($value), "n";
        }
}

						