sourcecode ergowolf <CODE> use BER; require 'SNMP_Session.pm'; my $host = @ARGV[0]; my $community = public; 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"; } } else { die "No response from agent on $host"; } </CODE> This program is GREAT for testing snmp and discovering the community name for the device. network management ergowolf