Obtener el nombre de Usuario de windows

[PanKrdo]

Hola,
Quiesiera que me ayudaran a conseguir que mediante una etiqueta (Label) me muestre la informacion del Usuario de windows del "regedit"

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\RegisteredOwner

y el nombre de la organizacion:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr entVersion\RegisteredOrganization

Yo utilizo el siguiente codigo pero no me da resultados:

Código:

Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias
 "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String,
 ByVal lpReserved As Long, lpType As Long, lpData As Any,
 lpcbData As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias
 "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String,
 phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll"
 (ByVal hKey As Long) As Long

Private Sub Form_Load()
    Dim strUser As String
    Dim strOrg As String
    Dim lngLen As Long
    Dim lngType As Long
    Dim hKey As Long
    Dim x As Long
    Const HKEY_LOCAL_MACHINE = &H80000002
    Const REG_SZ = &H1
    x = RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion", hKey) ' open desired key in registry
    strUser = Space$(256)
    lngLen = Len(strUser)
    x = RegQueryValueEx(hKey, "RegisteredOwner", 0, lngType, ByVal strUser, lngLen)
    If x = 0 And lngType = REG_SZ And lngLen > 1 Then
        strUser = Left$(strUser, lngLen - 1)
    Else
        strUser = "Desconocido"
    End If
    strOrg = Space$(256)
    lngLen = Len(strOrg)
    x = RegQueryValueEx(hKey, "RegisteredOrganization", 0, lngType, ByVal strOrg, lngLen)
    If x = 0 And lngType = REG_SZ And lngLen > 1 Then
        strOrg = Left$(strOrg, lngLen - 1)
    Else
        strOrg = "Desconocido"
    End If
    Label1.Caption = "Usuario: " & strUser
    Label2.Caption = "Empresa: " & strOrg
    x = RegCloseKey(hKey)
End Sub

Gracias

[Insomnia]

Hola

Para obtener el nombre de usuario utilizo la API GetUserName.

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

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

Copiar y pegar en un módulo.

--Saludos--