Active Directory VB.net получить описание значения атрибута для группы

Question

Я пытаюсь получить значение описания из группы AD, я могу использовать AD для просмотра значений по отдельности, но я пишу небольшое приложение, в котором перечислены все группы и описания для отдельного пользователя.

Изображение, показывающее поле, из которого я хочу извлечь данные из

Это код, который у меня есть:

Dim de AsНовый DirectoryEntry () de.Path = "LDAP: // {domain}"

    Dim searcher As New DirectorySearcher(de)


    searcher.Filter = String.Format("(&(objectClass=user)(objectCategory=person)(sAMAccountName={0}))", {search string for target user})
    searcher.PropertiesToLoad.AddRange(New String() {"memberOf"})

Затемнить результаты как SearchResultCollection = Nothing

Try
        results = searcher.FindAll()

        If (results.Count > 0) Then
            Dim result As SearchResult = results(0)
            For Each role As String In result.Properties("memberOf")
        If role.StartsWith("CN=RG_") Then

{именно здесь я бы хотел получитьзначение описания}

            End If
            Next
        End If
Catch ex As Exception
        Throw ex
    Finally
        If (Not results Is Nothing) Then
            results.Dispose()
        End If
        searcher.Dispose()
    End Try

Answer 1

Я принял паузу, глядя на экран, и, выполняя очередное мирское задание, я понял, что был глуп.Ответ был прост ... Я искал не тот класс объектов:

    searcher.Filter = String.Format("(&(objectClass=group)(CN=" & groupname & "))".Replace("\", "\\"))
    searcher.PropertiesToLoad.AddRange(New String() {"description"})

Итак, я ищу по пользователю, для каждой возвращаемой группы, если я хочу описание, я просто запускаю другой запрос с новымфильтр.