विशिष्ट सक्रिय निर्देशिका वितरण समूह

Question

में उपयोगकर्ताओं की सूची मैं उपयोगकर्ताओं की एक सूची और सक्रिय निर्देशिका समूह के भीतर से कुछ गुणों की एक सूची प्राप्त करने का प्रयास कर रहा हूं।

अपडेट:,

Dim adGroup As New DirectoryEntry("LDAP://CN=MyGroup,OU=Groups,OU=Accounts,OU=All,DC=domain,DC=com") 
    Dim adMembers As Object 
    Dim objUser As ActiveDirectoryUser 
    Dim objUserList As New List(Of ActiveDirectoryUser) 
    Dim directoryEntry As DirectoryEntry 

    adMembers = adGroup.Invoke("Members", Nothing) 

    For Each adMember As Object In CType(adMembers, IEnumerable) 
     directoryEntry = New DirectoryEntry(adMember) 
     objUser = New ActiveDirectoryUser 

     objUser.UserId = directoryEntry.Properties.Item("sAMAccountName").Value.ToString() 
     objUser.Contract = directoryEntry.Properties.Item("ou").Value.ToString() 
     objUser.LastName = directoryEntry.Properties.Item("sn").Value.ToString() 
     objUser.FirstName = directoryEntry.Properties.Item("givenName").Value.ToString() 
     objUser.Email = directoryEntry.Properties.Item("mail").Value.ToString() 

     objUserList.Add(objUser) 
    Next 

पहले टुकड़ा काम करता है, हालांकि यह काफी अप्रभावी लगता है:

यहां ऐसी दो विधियां मैं वर्तमान में कर रहे हैं। मेरी मेमोरी उपयोग चढ़ाई और चढ़ाई के रूप में चढ़ता है और मुझे this त्रुटि मिल रही थी, हालांकि ऐसा लगता है कि इसे ठीक किया जा सकता है। दूसरी विधि:

Dim results As SearchResultCollection 
    Dim directoryEntry2 As New DirectoryEntry("LDAP://DC=domain,DC=com") 
    Dim directorySearcher As New DirectorySearcher(directoryEntry2) 
    directorySearcher.PageSize = 1000 

    directorySearcher.Filter = "(&(objectCategory=person)" & _ 
          "(objectClass=user)" & _ 
          "(memberOf=CN=MyGroup,OU=Groups,OU=Accounts,OU=All,DC=domain,DC=com))" 


    directorySearcher.PropertiesToLoad.Add("ou") 
    directorySearcher.PropertiesToLoad.Add("sn") 
    directorySearcher.PropertiesToLoad.Add("givenName") 
    directorySearcher.PropertiesToLoad.Add("sAMAccountName") 
    directorySearcher.PropertiesToLoad.Add("mail") 

    results = directorySearcher.FindAll 

परिणाम गणना प्रत्येक आवेदन के निष्पादन से भिन्न होती है जो मुझे अजीब लगता है। मुझे यकीन नहीं है कि क्या यह उपयोगकर्ताओं को वापस पाने का एक विश्वसनीय तरीका है या यदि मुझे अपनी खोज पर कुछ संशोधित करने की आवश्यकता है?

Answer 1

आप, .NET 3.5 में अपग्रेड कर सकते हैं और भी बहुत कुछ नया का उपयोग System.DirectoryServices.AccountManagement नामस्थान में सुधार हुआ। उन नए वर्गों के लिए महान परिचय Managing Directory Security Principals in the .NET Framework 3.5 में पाया गया है।

इस के साथ, अपनी नौकरी तुच्छ हो जाता है:

PrincipalContext ctx = new PrincipalContext(ContextType.Domain, "YOURDOMAIN"); 
GroupPrincipal group = GroupPrincipal.FindByIdentity(ctx, "MyGroup"); 
PrincipalSearchResult<Principal> members = group.GetMembers(); 

आप के लिए है कि काम करता है?

यदि आप .NET 3.5 का उपयोग नहीं कर सकते हैं, तो आपको समूह की member संपत्ति का निरीक्षण करना चाहिए। समूह के सदस्य पदानुक्रम में समूह के नीचे तर्कसंगत रूप से बच्चों के रूप में संग्रहीत नहीं हैं, इसलिए आप उन्हें DirectorySearcher का उपयोग करके नहीं ढूंढ सकते हैं।

DirectoryEntry group = new DirectoryEntry("LDAP://CN=MyGroup,OU=Groups,OU=All,DC=Domain,DC=com"); 

foreach(object groupMemberDN in group.Properties["member"]) 
{ 
    // grab the group member's DN 
} 

इस स्निपेट और अधिक के लिए MSDN लाइब्रेरी में सक्रिय निर्देशिका (या Visual Basic .NET के लिए एक ही) के लिए Quick List of C# Code Examples देखें।

अद्यतन: जो एक memberOf संपत्ति बराबर करने के लिए है सभी उपयोगकर्ताओं के लिए खोज: अगर आप उपयोगकर्ताओं एक विशेष समूह से संबंधित (जब से तुम उनके गुणों या कुछ और अपडेट करना चाहते हैं) की जरूरत है, तो आप दृष्टिकोण रिवर्स सकता है समूह के डीएन:

DirectoryEntry root = new DirectoryEntry("LDAP://dc=domain,dc=com"); 
DirectorySearcher searcher = new DirectorySearcher(root); 

searcher.Filter = "(&(objectCategory=user)(memberOf=CN=MyGroup,OU=Groups,OU=All,DC=Domain,DC=com))"; 
// set other properties on the searcher 

foreach(object result in searcher.FindAll()) 
{ 
    // do whatever you need to do with the entry 
} 

Answer 2

स्कोप अपनी खोज को व्यापक, जहाँ भी सदस्य हो सकते हैं:

Dim directoryEntry As New DirectoryEntry("LDAP://OU=All,DC=Domain,DC=com") 

फ़िल्टर समूह सदस्यता के आधार पर:

directorySearcher.Filter = "(&(objectCategory=person)" & _ 
          "(objectClass=user)" & _ 
          "(memberOf=CN=MyGroup,OU=Groups,OU=All,DC=Domain,DC=com))"