#!/usr/bin/perl use SNMP_util; $comunity = "rushnet"; $host = shift; $testOid = shift; print "----------------------------------------WALK--------------------------------\n"; (@result) = &snmpwalk("$comunity\@500\@$host", "$testOid"); foreach $lineBuf (@result){ print "$lineBuf\n";} print "----------------------------------------GET--------------------------------\n"; $result = &snmpget("$comunity\@$host", "$testOid"); #chomp($result); print "$result\n";