Try
Dim searcher As New DirectorySearcher()
Dim rootDSE As String = searcher.SearchRoot.Path

Dim entry As New DirectoryEntry(rootDSE)
‘eg: Default Domain
Dim dirSearcher As New DirectorySearcher(entry)
dirSearcher.Filter = “(&(objectClass=user))”
dirSearcher.SearchScope = SearchScope.Subtree
dirSearcher.Sort.Direction = System.DirectoryServices.SortDirection.Ascending
dirSearcher.Sort.PropertyName = “cn”

Dim domainMembers As New ArrayList()

‘Finding all users.
For Each result As SearchResult In dirSearcher.FindAll()
Try
Dim strUserInfo As String = String.Empty
Dim de As DirectoryEntry = result.GetDirectoryEntry()

If de.Properties.Contains(“sAMAccountName”) Then
strUserInfo = de.Properties(“sAMAccountName”).Value.ToString()
End If

domainMembers.Add(strUserInfo)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Next
DataGrid1.DataSource = domainMembers
DataGrid1.DataBind()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try