my $IP=$ARGV[0];
my $COMMUNITY=$ARGV[1];
my $Service=$ARGV[2];
my $resultat =`snmpwalk -v 1 -c $COMMUNITY $IP | grep $Service`; ###Snmp Object host resource names
my @sid;
my $pb_calcul;
my @memory;

if($resultat){
	$resultat =~ s/HOST-RESOURCES-MIB::hrSWRunName.(\d+)\s+=\s+\w+:\s+(.*)/$1:$2/g;
	@sid=split(/:/,$resultat);
	my @nextresult =`snmpwalk -v 1 -c $COMMUNITY $IP | grep $sid[0]`;
	foreach my $rec(@nextresult){
		if($rec =~ m/HOST-RESOURCES-MIB::hrSWRun(\w+).\d+\s+=\s+\w+:\s+(.*)/){
			print "$1 ------> $2\n";
		}
	}