Access y VBA
Blog de Access y VBA del Buho


Inicio


Acerca de
Suscríbete al blog

Categorías
General [3] Sindicar categoría
Access con Codigo VBA [15] Sindicar categoría

Archivos
Septiembre 2005 [11]
Agosto 2005 [5]
Junio 2005 [2]

Sindicación (RSS)
Artículos
Comentarios

 


Usuario de Windows

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

Por ErBuho - 5 de Septiembre, 2005, 1:22, Categoría: Access con Codigo VBA
Enlace Permanente | Referencias (0)




<<   Septiembre 2005    
LMMiJVSD
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30   

Enlaces
eGrupos
ZoomBlog

 

Blog alojado en ZoomBlog.com