Nombre y Empresa

[Neverhood]

Me gustaría saber si existe algún ejemplo para obtener mediante VB el nombre del Usuario y la Empresa de una computadora, es decir, los 2 campos que aparecen cuando se instala un programa, y que generalmente dicen:

Se autoriza el uso de X programa a
Fulano de tal
Empresa X

ya que estoy haciendo un programa, y en el ACERCA DE me gustaría que aparecieran esos datos.

De antemano, gracias!!! :)

[compaq]

Esto a mi me funciona:

Obtener el nombre de usuario y de la compañia de Windows:

Crear un formulario, añadir dos etiquetas o labels y escribir el siguiente 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&qu ot;,
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 = "Unknown"
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 = "Unknown"
End If
Label1.Caption = "Usuario: " & strUser
Label2.Caption = "Empresa: " & strOrg
x = RegCloseKey(hKey)
End Sub

[Neverhood]

Muchas gracias!!! Probaré el código esta noche en mi casa. ;)

[Neverhood]

Aunque ya hace un mes que dejaron la respuesta, no había podido ingresar al foro, y ya que dicen que más vale tarde que nunca...

GRACIAS!!! El código me funcionó de maravilla!!! :)