[SOLUCIONADO] Obtener grupo de una persona

[maialenlopez]

Hola;

Estoy creando una aplicación web a la que quiero conectarme mediante el directorio activo para así obtener el nombre, apellido, email y el grupo al que pertenece la persona.

He conseguido obtener el nombre, apellido y el email pero no consigo obtener el grupo o los grupos a los que pertenece esta persona.

¿Me podéis echar una cable?

Os dejo el código con el que obtengo el nombre, apellido y el email de la persona:

Código vb.net:

Public Function FullName(ByVal user As String, ByVal pass As String) As String()
        'Dim dirEntry As New DirectoryEntry("LDAP://servername/DC=servername,DC=com", strDomain & "\" & user, pass)
        Dim adsEntry As New DirectoryEntry("LDAP://servidor/DC=dc,DC=com", user, pass)
        Dim deSearch As New DirectorySearcher(adsEntry)
        Dim properties() As String = {"fullname"}
        deSearch.SearchScope = SearchScope.Subtree
        deSearch.ReferralChasing = ReferralChasingOption.All
        deSearch.PropertiesToLoad.AddRange(properties)
        deSearch.Filter = "(sAMAccountName=" + user + ")"
 
        Dim result As SearchResult
        result = deSearch.FindOne()
        Dim directoryEntry As New DirectoryEntry
        directoryEntry = result.GetDirectoryEntry()
        Dim displayname, mail As String
        displayname = directoryEntry.Properties("displayname").Value
        mail = directoryEntry.Properties("mail").Value
        'MsgBox(displayname + " " + mail)
        Dim ar As String() = {displayname, mail}
        Return ar
    End Function
 

[maialenlopez]

Ya he conseguido obtener los grupos del usuario.
si alguien quiere la solucion la escribo a continuación:

Código vb.net:

Private Function obtenergrupo(ByVal user As String, ByVal pass As String)
        Dim deGlobal As New DirectoryEntry("LDAP://192.1.1.1/DC=dc,DC=dc", user, pass)
        Dim ds As DirectorySearcher = New DirectorySearcher(deGlobal)
 
        ds.SearchScope = DirectoryServices.SearchScope.Subtree
        ds.Filter = "(&(objectcategory=user)(SAMAccountName=" & user & "))"
        Dim res As SearchResult = ds.FindOne
        Dim grupo As String
        Dim grupo1 As Integer
        For i = 0 To res.Properties("memberOf").Count() - 1
            grupo = res.Properties("memberOf")(i).ToString
 
            If grupo = "CN=Grupo1,OU=UOGRUPO,OU=UOAplicaciones,DC=indar,DC=local" Then
                grupo1 = 1
            ElseIf grupo = "CN=Grupo2,OU=UOGRUPO,OU=UOAplicaciones,DC=dc,DC=dc" Then
                grupo1 = 2
            Else
                grupo1 = 3
            End If
        Next
        Return grupo1
    End Function