Visual Basic - Ayuda con DirectoryServices

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con DirectoryServices

Publicado por Juan (6 intervenciones) el 11/05/2011 18:53:19
Hola: Tengo el siguiente problema, hice una aplicación que se utiliza en distintos Active Directory, lees los usuarios del active directory donde se corre la aplicacion y los muestra para que se los agregue como usuarios del sistema (aquellos que no son usuarios aún).
El sistema funciona bien, para todos los Dominios excepto para uno, y no puedo dar con la falla del por que, de ese dominio, no recupera la información de los usuarios.
El código que uso es el siguiente:

Esta funcion obtiene los usuarios del grupo deseado:

Private Sub UsuariosDeGrupo(ByVal Grupo As String)
Dim objDirectoryEntry, de 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 = "(SAMAccountName=" & Grupo & ")"
result = mySearcher.FindOne
Dim Apellido, Nombre, NombreNT As String
For Each PathUsuario As String In result.Properties("Member")
DevolverDatosUsuarioAD(PathUsuario, Apellido, Nombre, NombreNT, Agregar)
If Agregar And Not EsUsuarioDelSistema(NombreNT) Then
TablaUsuariosAD.Rows.Add(-1, Apellido, Nombre, NombreNT)
End If
Next
End Sub

Por favor necesitaria ayuda urgentemente
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