24/06/2008, 12:14
|
 | | | Fecha de Ingreso: octubre-2005
Mensajes: 192
Antigüedad: 18 años, 7 meses Puntos: 0 | |
| Respuesta: Obtener datos del usuario con el dominio
aqui esta el codigo:
Dim objUser As DirectoryServices.DirectoryEntry
Dim objDirectoryEntry As New DirectoryServices.DirectoryEntry("LDAP://DC=dominio,DC=xx")
Dim objDirectorySearcher As New DirectoryServices.DirectorySearcher(objDirectoryEn try)
Dim objSearchResult As DirectoryServices.SearchResult
objDirectorySearcher.Filter = "(SAMAccountName=" & "user" & ")"
objSearchResult = objDirectorySearcher.FindOne()
objUser = objSearchResult.GetDirectoryEntry()
ahora bien..al obtener el "objUser" puedo obtener el nombre del usuario y otros datos, pero lo que yo necesito es obtener datos registrados en el dominio como el correo, telefono y otros que no aparecen (a primera vista) en el objUser.
tal vez utilizando:
nombre = objUser.Properties.Item("nombre de la propiedad").Value ??
si hay alguna idea por ahi se agradecerá
saludos...
__________________
"No a las dictaduras, no a la impunidad, no al comercio injusto que explota al menor de edad. Sí a las autocracias, sí a la libertad, el tercer mundo va a estallar."
Finisterra MAGO DE OZ |