snmpget2.pl

来自「JdonFramework need above jdk 1.4.0 This」· PL 代码 · 共 11 行

#!/usr/local/bin/perl
#filename: /opt/local/perl_scripts/snmpget2.pl
use SNMP_util;
$MIB1 = shift;
$HOST = shift;
($MIB1) && ($HOST) || die "Usage: $0 MIB_OID HOSTNAME";
($value) = &snmpget("$HOST","$MIB1");
if ($value) { print "Results :$MIB1: :$value:\n"; }
else { warn "No response from host :$HOST:\n"; }