VB - OU´s aus Active Directory auslesen

Imports System.DirectoryServices
Sub GetOU()
Dim objRootDSE As New DirectoryEntry("LDAP://RootDSE")
        Dim dom = objRootDSE.Properties("DefaultNamingContext").Value.ToString()
        Dim ds As DirectorySearcher = New DirectorySearcher("LDAP://" & dom)
        ds.SearchScope = DirectoryServices.SearchScope.OneLevel
        
        ds.Filter = "(OU=*)"
        Dim dirSearchResults As SearchResult
        For Each dirSearchResults In ds.FindAll()
            console.writeline(dirSearchResults.GetDirectoryEntry().Path.ToString)
        Next

    End Sub