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:
Ver original
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?