Click here to get back home

net::snmp

 HomeNewsGroups | Search | About
 comp.lang.perl.modules    Post an article   get this group's latest topics as an RSS feed add this group's latest topics to your My MSN content add this group's latest topics to your My Yahoo content
Subject Author Date
net::snmp AllyCoops 11-05-2006
Posted by AllyCoops on November 5, 2006, 6:30 am
Please log in for more thread options


I'm having bother with the net::snmp module.

I'm writing a script that will query a device via SNMP to check the
system
time (it;s a nagios check to make sure that devices are polling NTP
properly and not falling out of sync).

Unfortunately, the get request is returning in format I don't recognise
(possibly because of characters.

I'm doing a "get_request" for HOST-RESOURCES-MIB::hrSystemDate.0
(1.3.6.1.2.1.25.6.3.1.5.1).

A snmpwalk indicates I should be getting returned is something like:

2006-11-4,18:23:55.8

(SNMPWALK returns precisely "HOST-RESOURCES-MIB::hrSystemDate.0 =
STRING:2006-11-4,18:23:55.8"

What the get_request is giving me is "0x07d4010705181e00"

Can anyone shed any light on where I'm going wrong?

My code is:

use strict;
use Net::SNMP;

#
# Gather hostname and community string from call parameter
#

my $hostname = $ARGV[0]; # target host to be checked
my $community = $ARGV[1]; # SNMP Community string for exchange

#
# Define the current date
#

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime
time;

#
# OID of System Time: HOST-RESOURCES-MIB::hrSystemDate.0

my $snmpstring = '1.3.6.1.2.1.25.6.3.1.5.1';
#my $snmpstring = '1.3.6.1.2.1.25.1';
#my $datestring = $snmpstring . ".2";

my ($session, $error) = Net::SNMP->session( -hostname => $hostname,
-community =>
$community,
-timeout => 5);

my $hostdatestring = $session->get_request("$snmpstring");

$session->close;

#
# Error out and set warning status in nagios if no result back from
SNMP
#

if (!defined($hostdatestring)) {
printf("ERROR: No result - $session->error, $error");
$session->close;
exit 1;
}

#print "datestring -> $datestring\n";

my $systemdate = $hostdatestring->;

print $systemdate;


Similar ThreadsPosted
NET::SNMP December 14, 2004, 12:32 am
NET::SNMP December 14, 2004, 12:36 am
NET::SNMP December 14, 2004, 12:39 am
SNMP Set Request July 26, 2004, 8:42 pm
Looking for SNMP-5.1.1/NetSNMP-5.1.1 April 29, 2005, 3:48 pm
SNMP::Util April 6, 2006, 10:32 am
Help with SNMP get_request April 21, 2006, 3:49 pm
Net::SNMP module June 2, 2006, 10:29 am
please helpme: Net-SNMP-5.2.0 module August 29, 2006, 11:47 am
Net::SNMP snmpv3 inform issues May 17, 2005, 10:18 am

Our other projects:

Art Dolls, Fairies and Mermaids - Sunnyfaces.net

Roy's Linux, Programming and Search Engines messages

1-Script XML SitemapXML Sitemap