** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - Usuario de Windows
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoUsuario de Windows

 Responder Responder
Autor
Mensaje
buho Ver desplegable
Administrador
Administrador
Avatar
Abuelo FELIZ

Unido: 10/Abril/2004
Localización: Valladolid
Estado: Sin conexión
Puntos: 11317
Enlace directo a este mensaje Tema: Usuario de Windows
    Enviado: 09/Agosto/2013 a las 20:46

Es una pregunta que se suele repetir: Saber el nombre del usuario que ha iniciado sesión en Windows. Formas de hacerlo...varias.

Primera Forma: API

Option Explicit

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _

    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function DameUsuarioApi() As String

  'Utilizando API de Windows

  Dim lngLen As Long, lngX As Long

  Dim strUserName As String

  strUserName = String$(254, 0)

  lngLen = 255

  lngX = apiGetUserName(strUserName, lngLen)

  If lngX <> 0 Then

    DameUsuarioApi = Left$(strUserName, lngLen - 1)

  Else

    DameUsuarioApi = "Incapaz de detectar usuario."

  End If

End Function

Segunda Forma: Variables de Entorno

Function DameUsuarioSencilla() As String

  'Utilizando Variables de entorno

  DameUsuarioSencilla = Environ("USERNAME")
End Function

Tercera forma: Utilizando Windows Script Host

Function DameNombreUsuarioWSH() As String

  'Dos lineas y me devuelve el nombre del PC y del usuario Activo

  'Mas facil, imposible

  'Buho Junio 2003

  Dim ObjetoRed As Object

  Set ObjetoRed = CreateObject("WScript.Network")

  MsgBox "Nombre del PC en Red : " & ObjetoRed.ComputerName & vbCrLf _

      & "Usuario: " & ObjetoRed.UserName, vbInformation, "Aviso"

 

  DameNombreUsuarioWSH = ObjetoRed.UserName

  Set ObjetoRed = Nothing

End Function

Expulsado de la cárcel por robar los barrotes
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable