Capturar el inicio de sesion de Windows

Martha Zerpa
29 de Marzo del 2006
Quiero hacer una aplicación en VB 6 que me capture el dato de quién inicia sesión en la máquina (Windows) y me pueda arrojar un mensaje de quién inicio esa sesión (Administrador u otro usuario). Quien pueda ayudarme u orientarme se lo agradezco. Gracias......

Rosa
29 de Marzo del 2006
Hola, para eso tienes que usar APIs, te paso el ejemplo, ponlo todo en un formulario con un Label y un CommadButton:

Private Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetUserName() As String

Dim UN As String * 255
Call GetUserNameA(UN, 255)
GetUserName = Left$(UN, InStr(UN, Chr$(0)) - 1)

End Function
Private Sub Command1_Click()
Label1.Caption = GetUserName
End Sub