Obtener datos de un usuario Windows

"Minothauro" wrote in message
news:

Necesito hacer lo siguientepor una cuestion de auditoria, mi
programa debe 'saber' el usuario conectado actualmente, ese ya esta,
pero tambien necesito su direccion, telefono, etc. Cuando uno crea una
cuenta de usuario en Windows, está la ficha de propiedades en donde
existen esos campos.

De donde los puedo conseguir?

Me imagino que con lo de la "cuenta de usuario en Windows" te refieres a
una cuenta en el Directorio Activo, ya que las cuentas locales de usuario en
Windows no tienen esos datos.

Para acceder al directorio activo se usan las clases que están el el
espacio de nombres System.DirectoryServices:

Imports System.DirectoryServices
...

Dim rootEntry As New DirectoryEntry("LDAP://Servidor", Domain & "\"
& UserName, Password)
Dim propertiesToGet As String() = {"cn", "mail", "telephoneNumber"}
Dim searcher As New DirectorySearcher(rootEntry)
searcher.PropertiesToLoad.AddRange(propertiesToGet)
searcher.Filter = "(SAMAccountName=" & UserName & ")"
Dim result As SearchResult
result = searcher.FindOne()
If Not result.Properties("cn") Is Nothing Then nombrecombleto =
result.Properties("cn")(0)
If Not result.Properties("mail") Is Nothing Then email =
result.Properties("mail")(0)
If Not result.Properties("telephoneNumber") Is Nothing Then telefono
= result.Properties("telephoneNumber")(0)