AD-Gruppe auslesen mit VB.Net 2008

        'abfrage ob dieser Pfad existiert  
        Dim Root As DirectoryServices.DirectoryEntry = New DirectoryServices.DirectoryEntry("LDAP://" + System.Environment.UserDomainName)  
        Dim Searcher As DirectoryServices.DirectorySearcher = New DirectoryServices.DirectorySearcher(Root)
        Dim Results As SearchResultCollection
        Dim Result As SearchResult

        Searcher.Filter = "(&(objectClass=group) )"  
        Results = Searcher.FindAll

        For Each Result In Results
            If Not Result.GetDirectoryEntry().Properties("cn").Value = "" Then  
                txt_user.Text = txt_user.Text + Chr(13) + Chr(10) + Result.GetDirectoryEntry().Properties("cn").Value  
            End If
        Next