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