Obtener datos del usuario con el dominio

[el mago de oz]

holas....
estoy trabajando en VB. net... en un sitio al cual se ingresa autenticandose en el dominio...luego capturo el usuario (por ej: dominio\ameneses) con windows.identity....

ahora quiero saber como puedo obtener mas datos del mismo usuario registrado en el dominio...como nombres, apellidos, si registra direccion o cosas por el estilo...

Saludos

[jasp22]

Busca dentro del namespace System.DirectoryServices que sirve para gestionar directorio activo, asi podras acceder a los atributos del usuario.
Saludos.

[el mago de oz]

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...

[el mago de oz]

sigo:

mi consulta va por lo siguiente....

tengo esto:

Dim objSearchResult As DirectoryServices.SearchResult
objDirectorySearcher.Filter = "(SAMAccountName=" & "usuario" & ")"

objname = objSearchResult.Properties("name").Item(0)
objmail = objSearchResult.Properties("mail").Item(0)

como saber que otros nombre de propiedades tengo disponibles ya que "name" y "mail" los encontre buscando por ahi:
http://www.devjoker.com/html/Active-Directory_183.html

pero necesito ademas rescatar el telefono, compañia, etc

como obtengo esto o cuales son los nombres de esas propiedades??

saludos y gracias

[Peterpay]

result.Properties.PropertyNames

haz un loop sobre ello y revisa si estan las q necesitas

[el mago de oz]

con esto obtienes todas las propiedades disponibles... ahi se busca la que necesitas....

Dim myResultPropColl As DirectoryServices.ResultPropertyCollection
myResultPropColl = objSearchResult.Properties

Dim myKey As String
For Each myKey In myResultPropColl.PropertyNames
Dim tab1 As String = " "
Console.WriteLine(myKey + " = ")
Dim myCollection As Object
For Each myCollection In myResultPropColl(myKey)
Console.WriteLine(myCollection)
Next myCollection
Next myKey

y lo usas aqui:

description = objSearchResult.Properties("description").Item(0)

saludos y gracias