$objSWbemLocator = Win32::OLE->new("WbemScripting.SWbemLocator");
$objWMIService = $objSWbemLocator->ConnectServer($strMLM,"\\root\\hewlettpackard\\openview\\data");
$objNodes = $objWMIService->ExecQuery("Select * from OV_ManagedNode where PrimaryNodeName like \"%$argNode%\"");
foreach $fNode (in $objNodes) 
{
	print "$fNode->{PrimaryNodeName}\n";
	$NGList = $fNode->GetParents() or die;
	foreach $fNode ($NGList) 
	{
		print "***************\n";
		my $fName = $fNode->{Name};
		my $fCaption = $fNode->{Caption};
		print "$fName:$fCaption \n";      #GUID of the group
		@polGrps = $fNode->GetAutoDeployPolicyGroups;
	}
}