Set WshNetwork = WScript.CreateObject("WScript.Network")  
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objSWbemLocator.ConnectServer(strMLM,"\root\hewlettpackard\openview\data")
Set objNodes = objWMIService.ExecQuery("select * from OV_ManagedNode where PrimaryNodeName like '" & strND & "%'")
for each nm in objNodes
	Wscript.Echo "Primary Node name is " & nm.PrimaryNodeName '& vbNewLine
	Name = nm.name
	nm.GetParents(NGarray)
	For Each gp in NGarray
		Wscript.Echo gp.Caption  
	Next 
next
Wscript.Quit 0

##</code><code>##

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