public List<string> GetComputersInDomain(string domainName) { DirectoryEntry entry = new DirectoryEntry("LDAP://" + domainName); DirectorySearcher searcher = new DirectorySearcher(entry); searcher.Filter = "(objectClass=computer)"; List<string> result = new List<string>(); foreach (SearchResult sr in searcher.FindAll()) { result.Add(sr.GetDirectoryEntry().Name.ToString()); } return result; }
Public Function GetComputersInDomain(ByVal domainName As String) As List(Of String) Dim entry As DirectoryEntry = New DirectoryEntry("LDAP://" + domainName) Dim searcher As DirectorySearcher = New DirectorySearcher(entry) searcher.Filter = "(objectClass=computer)" Dim result As New List(Of String) For Each sr As SearchResult In searcher.FindAll result.Add(sr.GetDirectoryEntry().Name.ToString()) Next Return result End Function