Alle Computer aus AD auslesen mit VB.net

Dim objRootDSE As New DirectoryEntry("LDAP://RootDSE")  
Dim strADsPath As String
Dim netpcs As ArrayList
Dim i As Integer

        Try
            strADsPath = "LDAP://" + objRootDSE.Properties("defaultNamingContext").Value.ToString  
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


        Dim netpcs As ArrayList = GetDomainHosts(strADsPath)

        Do
            ListBox1.Items.Add(netpcs.Item(i).ToString)
            i += 1
        Loop Until i = netpcs.Count

        i = 0

 Function GetDomainHosts(ByVal LDAPDir As String, Optional ByVal RegexHost As String = "") As ArrayList  
        Dim pc As New ArrayList

        ' 1. connect to your domain controller, binding using currently logged on credentials  
        Dim root As New DirectoryServices.DirectoryEntry(LDAPDir)

        ' 2. put together an ldap query to retrieve all computer accounts  
        Dim searcher As New DirectoryServices.DirectorySearcher(root)
        searcher.Filter = "(objectClass=computer)"  
        searcher.SearchScope = DirectoryServices.SearchScope.Subtree
        searcher.Sort = New DirectoryServices.SortOption("displayName", DirectoryServices.SortDirection.Descending)  

        ' 3. execute the query  
        Dim results As DirectoryServices.SearchResultCollection = searcher.FindAll()
        Dim pcname As String = ""  

        ' 4. loop through the results  
        For Each computer As DirectoryServices.SearchResult In results
            pcname = computer.GetDirectoryEntry().Properties("displayName").Value  
            If Not pcname = Nothing Then
                pcname = pcname.Replace("$", "").ToLower  
                If RegexMatchingHost(pcname, RegexHost) Then
                    pc.Add(pcname)
                End If
            End If
        Next
        Return pc
    End Function