ユーザーアカウントを含むActive Directory OUのみ表示

Question

ドメインのADからOUのリストを簡単に取得できますが、ユーザーアカウントでOUを取得したいだけです。

私は現在、OUのリストを取得しており、それぞれのリストとユーザーリストを取得していますが、すべてのデータを処理するのに約30秒かかることがあります。

私は、同じタスクを達成するためのより迅速な方法があることを期待していました。

Public Sub GetActiveDirectoryOuList() 
    Dim de As DirectoryEntry = Nothing 
    Dim ds As DirectorySearcher = Nothing 
    Dim results As SearchResultCollection = Nothing 

    Try 
     de = New DirectoryEntry("LDAP://DC=csileasing,DC=com") 
     ds = New DirectorySearcher(de, "(objectClass=organizationalUnit)") 
     results = ds.FindAll 

     If results.Count = 0 Then Exit Try 

     For Each result As SearchResult In results 
      Dim count As Integer = GetUserCountForOU(result.Properties("distinguishedName")(0).ToString) 
      If count > 0 Then 
       Dim ou As New OrgUnitInfo 
       ou.DistinguisedName = result.Properties("distinguishedName")(0).ToString 
       ou.Name = result.Properties("name")(0).ToString 
       ou.UsersCount = count 
       adOrgUnitList.Add(ou) 
      End If 
     Next 

    Catch ex As Exception 
     'MessageBox.Show(ex.Message) 
    Finally 
     If ds IsNot Nothing Then ds.Dispose() 
     If de IsNot Nothing Then de.Dispose() 
     If results IsNot Nothing Then results.Dispose() 
    End Try 

End Sub 

Answer 1

私のDirectorySearcher操作では、できるだけデータ量の少ないことを確認しています。 OUのための検索では唯一、それはそれは、すべてのそれらのプロパティを持つすべてのユーザーを検索した場合も、多分、あなたのGetUserCountForOU方法で同じことをしようなど

ds = New DirectorySearcher(de, "(objectClass=organizationalUnit)", {"distinguishedName", "name"}) 

として、あなたが使用したいと思うのパラメータを指定しますそれは長い間それを取るために完全に正常です。 Filter="(&(objectClass=user)(!objectClass=computer))"の空のPropertiesToLoad配列を指定できます。DirectorySearcherは、objectGuid（これを正しく覚えていれば）だけを検索します。あなたはou.UsersCountを得るために結果のエントリを数えなければならないでしょう。