LDAP 부서 번호 쿼리

Question

LDAP에 특정 departmentnumber에 할당 된 사용자 목록을 쿼리하려고합니다. 약 100 개의 목록이어야합니다. 아래 코드는 하나의 멤버 만 반환합니다 (성은

Dim userIds As IEnumerable(Of String) = {"7871"} 
For Each i As String In userIds 
    Dim de As New DirectoryEntry("LDAP://test.net:389/DC=test,DC=net") 
    Dim LdapFilter As String = "(departmentNumber=" & i & ")" 
    Dim searcher As New DirectorySearcher(de, LdapFilter) 
    Dim result As SearchResult = searcher.FindOne() 
    Dim res As SearchResultCollection = searcher.FindAll() 
    Dim item As ListViewItem = ListView1.Items.Add(i) 
    item.SubItems.Add(result.Properties("givenName")(0).ToString()) 
    item.SubItems.Add(result.Properties("cn")(0).ToString()) 
    item.SubItems.Add(result.Properties("userPrincipalName")(0).ToString()) 
Next 

Answer 1

이 작동합니다 : 그것은 단지 마지막 값) 반환 것처럼 T는, 그래서 내 마음에 보인다

Dim userIds As IEnumerable(Of String) = {"7871"} 
     For Each i As String In userIds 
      Dim de As New DirectoryEntry("LDAP://test.net:389/DC=test,DC=net") 
      Dim LdapFilter As String = "(departmentNumber=" & i & ")" 
      Dim searcher As New DirectorySearcher(de, LdapFilter) 
      Dim result As SearchResult 
      Dim res As SearchResultCollection = searcher.FindAll() 
      For Each result In res 
       Dim item As ListViewItem = ListView1.Items.Add(i) 
       item.SubItems.Add(result.Properties("givenName")(0).ToString()) 
       item.SubItems.Add(result.Properties("cn")(0).ToString()) 
       item.SubItems.Add(result.Properties("userPrincipalName")(0).ToString()) 
      Next 
     Next