Public Function GetMailsListOfAllUsers(ByVal domain As String) As String()
Dim colEntry As New Collections.Generic.List(Of String)
Dim entry As New DirectoryEntry(String.Format("LDAP://{0}", domain))
entry.AuthenticationType = AuthenticationTypes.Secure
Dim ds As New DirectorySearcher(entry)
ds.Filter = "(&(objectClass=User))"
Dim results As SearchResultCollection = ds.FindAll()
For Each res As SearchResult In results
Try
Dim dire As DirectoryEntry = res.GetDirectoryEntry()
colEntry.Add(dire.Properties("mail").Value.ToString())
Catch ex As Exception
Continue For
End Try
Next
Return colEntry.ToArray()
End Function