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";
		}
	}

##</code><code>##

	[root@station17 sushil]# perl check_win_processall.pl  station16 public services
		Index ------> 1208
		Name ------> "services.exe"
		ID ------> SNMPv2-SMI::zeroDotZero
		Path ------> "C:\\WINDOWS\\system32\\"
		Type ------> application(4)
		Status ------> running(1)
		PerfCPU ------> 271
		PerfMem ------> 4144 KBytes


##</code><code>##


	# ssh <Windows IP Address>