RE:Como capturar login de usuario
Publicado por
eaos (1 intervención) el 08/07/2005 22:58:02
'estas librerías son para obtener el USUARIO DE DOMINIO.
Imports System.Security.Principal
Imports System.Security.Permissions
Private Function Obtener_Usuario_Dominio() As String
'La variable "User" pertenece al sistema y es invocada en las librerias
'el atributo User.Identity.Name contiene lo siguiente: "Nombre_dominio\Nombre_Usuario"
'asi que hay que utilizar la funcion "split" para dividir el nombre del dominio del nombre del usuario
'Str_cadena es un vector que va a almacenar en la posición 0 el nombre del dominio y
'en la posicion 1 el nombre del usuario'
Dim Str_cadena() As String = Split(User.Identity.Name, "\")
'Le asigno a la funcion el valor que tengo almacenado en la posicion "1" que es el nombre del usuario
Obtener_Usuario_Dominio = UCase(Str_cadena(1))
End Function