Visual Basic.NET - Ayuda con Directory Entry

 
Vista:

Ayuda con Directory Entry

Publicado por Juan (17 intervenciones) el 24/11/2011 17:50:25
Hola Tengo el siguiente problema y quisiera saber si alguien puede ayudarme.
Yo hago una busqueda de los usuarios del active directory dentro del grupo de usuarios "Grupo"con el siguiente codigo:

Public Function GetUsuariosGrupoAD(ByVal Grupo As String, ByVal Dominio As String) As List(Of Usuario)
Dim ListUsuarios As New List(Of Usuario)
Dim objDirectoryEntry As New DirectoryEntry("LDAP://" & Dominio)
Dim mySearcher As New System.DirectoryServices.DirectorySearcher(objDirectoryEntry)
Dim result As System.DirectoryServices.SearchResult
mySearcher.Filter = "(SAMAccountName=" & Grupo & ")"
result = mySearcher.FindOne
For Each PathUsuario As String In result.Properties("Member")
ListUsuarios.Add(DevolverDatosUsuarioAD(PathUsuario))
Next
Return ListUsuarios
End Function
EL problema que tengo es que este codigo me funciona bien con Windows server 2003, pero en aquellos directorios que utilizan Windows Server 2008 se produce una falla.
¿hay que habilitar el acceso a LDAP explicitamente en 2008?
¿Como puedo verificar el acceso?
Espero alguna respuesta

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