$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%\"");
my $NGList = Win32::OLE::Variant->new(VT_VARIANT|VT_BYREF);
foreach $fNode (in $objNodes) 
{
	print "$fNode->{PrimaryNodeName}\n";
	$fNode->GetParents($NGArray, "TRUE") or die;
	foreach $fGrp (@{$NGArray->Value()})  
	{
		push(@nGrp, $fGrp->{Caption});
	}
}