Public Shared Function GetDirectoryEntry() As DirectoryEntry
        Dim dirEntry As DirectoryEntry = New DirectoryEntry()
        dirEntry.Path = "ldap://ldap.uno.edu:389/o=UNIVERSITY OF NEW" & _
          "ORLEANS,c=US"
        Return dirEntry
    End Function
 
    Public Shared Function ListAllADComputers() As Collection
        Dim dirEntry As DirectoryEntry = GetDirectoryEntry()
        Dim List As New Collection()
        '   1. Search the Active Directory for all objects with type of computer
        Dim dirSearcher As DirectorySearcher = New DirectorySearcher(dirEntry)
        'dirSearcher.Filter = "" '("(ou=Students)")
        '   2. Check the search results
        Dim dirSearchResults As SearchResult
        '   3. Loop through all the computer names returned
        For Each dirSearchResults In dirSearcher.FindAll()
            '   4. Check to ensure the computer name isnt already listed in 
            'the collection
            If Not List.Contains(dirSearchResults.GetDirectoryEntry( _
              ).Name.ToString()) Then
                '   5. Add the computer name to the collection (since 
                'it dont already exist)
                List.Add(dirSearchResults.GetDirectoryEntry().Name.ToString())
            End If
        Next
        '   6. Return the results
        Return List
    End Function