Visual Basic.NET - Ayuda Con Grupos Del Active Directory

 
Vista:

Ayuda Con Grupos Del Active Directory

Publicado por Juan Pablo (17 intervenciones) el 16/12/2009 18:05:28
Hola:
Hice una funcion a la que le paso como parametro un grupo dentro del active directory y me devuelve los usuarios que son miembros de ese grupo, el problema es que no me devuelve todos los usuarios que son miembros del grupo sino solo un grupo de ellos, algunos administradores, otros no, y no todos comparten todos los grupos conmigo, si bien compartimos el grupo por el que estoy preguntando, algunos tienen mas grupos asignados y otros menos, sin embargo algunos son listados y otros no.
Aclaro aqui que si quito el filtro "mySearcher.Filter = "(memberOf=CN= .....:" la funcion me devuelve TODOS LOS USUARIOS DEL DOMINIO por lo tanto interpreto que el problema con los permisos es en dicha funcion.
EL codigo es el siguiente:

Private Sub UsuariosDeGrupo(ByVal Grupo As String)
Dim NombreRed As String
Dim objDirectoryEntry As New DirectoryEntry("LDAP://" & System.DirectoryServices.ActiveDirectory.Domain.GetCurrentDomain.ToString)
Dim mySearcher As New System.DirectoryServices.DirectorySearcher(objDirectoryEntry)
Dim result As System.DirectoryServices.SearchResult
mySearcher.Filter = "(memberOf=CN=" & Grupo & ",CN=Users,DC=XXXX,DC=XXXX,DC=XXXX,DC=XXXX)"
mySearcher.Filter = "(SAMAccountName=*)"
For Each result In mySearcher.FindAll
NombreRed = Environment.UserDomainName & "\" & result.GetDirectoryEntry().Properties("SAMAccountName").Value
TablaUsuariosAD.Rows.Add("-1", result.GetDirectoryEntry().Properties("SN").Value, result.GetDirectoryEntry().Properties("givenName").Value, NombreRed)
Next
End Sub

Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder