Obtener Usuario Windows

[beququi]

Hola, quisiera saber como puedo obtener el usuario de Windows XP para usarlo en mi aplicación cuando un usuario modifica un dato.


Saludos.

[RootK]

http://support.microsoft.com/kb/q152970/

Salu2

[Insomnia]

Hola

Utiliza la API GetUserName, la declaras en un módulo de la siguiente manera:

Código:

'API para obtener el usuario actual
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpbuffer As String, nSize As Long) As Long

También declaras la siguiente función en el módulo

Código:

Public Function UsuarioActual() As String
    'Esta función devuelve el nombre del Usuario
    Dim sBuffer As String
    Dim lSize As Long
    Dim sUsuario As String

    sBuffer = Space$(260)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        sUsuario = Left$(sBuffer, lSize)
        'Quitarle el CHR$(0) del final...
        lSize = InStr(sUsuario, Chr$(0))
        If lSize Then
            sUsuario = Left$(sUsuario, lSize - 1)
        End If
    Else
        sUsuario = ""
    End If
    UsuarioActual = sUsuario
    
End Function

Luego en cualquier parte del formulario podemos llamar a la función usuarioactual que nos devolverá el nombre con el que ha iniciado sesión

[beququi]

Si me ayudo, gracias.
Para obtener la hora y la fecha?

SAludos.

[ManuNic]

Puedes usar now()

[RootK]

Iniciado por Insomnia

Hola

Utiliza la API GetUserName, la declaras en un módulo de la siguiente manera:

...mmm... (creo que no se vió el mensaje...)

Iniciado por RootK

http://support.microsoft.com/kb/q152970/

Salu2

[SpRiTeR]

Environ("username")


Sin necesidad de APIs.

[f_visualbasic]

Puedes hacerlo fácilmente en vb.net 2005 utilizando el siguiente código:

Dim usuario As String
usuario = My.User.Name
MsgBox(usuario)

Eso te mostraría el nombre de máquina y el nombre de usuario activo.
Mother/User