Regoger datos del directorio activo. por LDAP

Hola,
Yo que tu me miraría el WMI y las clases Management que te permiten
administrar el sistema.

Te adjunto el siguiente código. Necesitas importar la referencia
System.Management para que te funcione.

Dim busqueda As New ManagementObjectSearcher("SELECT * FROM Win32_Account")
Dim info As ManagementObject
Dim str_usu_act As String
Dim str_todos_usu As String

For Each info In busqueda.Get()
If info("Name").ToString = Environment.UserName Then
str_usu_act = "Nombre: " & info("Name").ToString & vbCrLf & _
"Nombre completo: " & info("FullNAme").ToString & vbCrLf & _
"Descripcion: " & info("Description").ToString
End If
str_todos_usu = str_todos_usu & info.Item("Name").ToString & _
vbCrLf & info.GetText(TextFormat.Mof).ToString & vbCrLf
Next

En la variable str_usu_actual te incluyo algunos datos del usuario actual, y
en str_todos_usu la informacion de todos los usuarios del sistema

Saludos


Mi blog: http://mrfactory.blogspot.com/


"confiar en un ensamblado" wrote:

Si alguien me puede ayudar:

A partir del usuario recogido con System.Environment.userName necesito
saber alguna cosa mas como puede ser el nobre completo pero no encuento la
solución si alguien lo sabe se lo agradezco:

Un saludo

Muchas gracias, Me ha servido Un saludo

"Martin Rodriguez" wrote:

Hola,
Yo que tu me miraría el WMI y las clases Management que te permiten
administrar el sistema.

Te adjunto el siguiente código. Necesitas importar la referencia
System.Management para que te funcione.

Dim busqueda As New ManagementObjectSearcher("SELECT * FROM Win32_Account")
Dim info As ManagementObject
Dim str_usu_act As String
Dim str_todos_usu As String

For Each info In busqueda.Get()
If info("Name").ToString = Environment.UserName Then
str_usu_act = "Nombre: " & info("Name").ToString & vbCrLf & _
"Nombre completo: " & info("FullNAme").ToString & vbCrLf & _
"Descripcion: " & info("Description").ToString
End If
str_todos_usu = str_todos_usu & info.Item("Name").ToString & _
vbCrLf & info.GetText(TextFormat.Mof).ToString & vbCrLf
Next

En la variable str_usu_actual te incluyo algunos datos del usuario actual, y
en str_todos_usu la informacion de todos los usuarios del sistema

Saludos


Mi blog: http://mrfactory.blogspot.com/


"confiar en un ensamblado" wrote:

> Si alguien me puede ayudar:
>
> A partir del usuario recogido con System.Environment.userName necesito
> saber alguna cosa mas como puede ser el nobre completo pero no encuento la
> solución si alguien lo sabe se lo agradezco:
>
> Un saludo