Obtener grupos a los que pertenece un usuario

[maialenlopez]

Hola,
Estoy realizando una aplicación web mediante vb.net. Tengo que autenticar el usuario mediante el directorio activo, y una vez que este exista con la función que pongo a continuación visualizo El nombre y apellido y el email del usuario.

Código vb.net:

Public Function FullName(ByVal user As String, ByVal pass As String) As String()
        Dim adsEntry As New DirectoryEntry("LDAP://192.168.1.1/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
        Dim ar As String() = {displayname, mail}
        Return ar
    End Function
 

¿Cómo podría obtener los grupos a los que pertenece este usuario?