ADBasedGroupDemo 1.0.0.0 ADBasedGroupDemo Microsoft.SystemCenter.Library 6.0.6278.0 31bf3856ad364e35 Microsoft.Windows.Library 6.0.6278.0 31bf3856ad364e35 System.Health.Library 6.0.6278.0 31bf3856ad364e35 System.Library 6.0.6278.0 31bf3856ad364e35 GroupPopulationDemo.ADBasedGroup Windows!Microsoft.Windows.Computer Discovery 300 ADBasedGroupDiscovery.vbs $MPElement$ $Target/Id$ ;(objectCategory=computer);dNSHostName;subtree" Set objRecordSet = objCommand.Execute Set groupInstance = oDiscoveryData.CreateClassInstance("$MPElement[Name='GroupPopulationDemo.ADBasedGroup']$") While Not objRecordSet.EOF Set serverInstance = oDiscoveryData.CreateClassInstance("$MPElement[Name='Windows!Microsoft.Windows.Computer']$") serverInstance.AddProperty "$MPElement[Name='Windows!Microsoft.Windows.Computer']/PrincipalName$",objRecordSet.Fields("dNSHostName") Set relationshipInstance = oDiscoveryData.CreateRelationshipInstance("$MPElement[Name='GroupPopulationDemo.ADBasedGroupContainsWindowsComputers']$") relationshipInstance.Source = groupInstance relationshipInstance.Target = serverInstance oDiscoveryData.AddInstance relationshipInstance objRecordSet.MoveNext Wend objConnection.Close Call oAPI.Return(oDiscoveryData) ]]> 120 AD Based Group Population AD Based Group AD Based Group Contains Windows Computers AD Based Group Sample Discovery