Oppure

Loading
17/01/11 17:24
Sal47
Salve a tutti,
per un mio piccolo programma vorrei estrarre "Cognome e Nome" per intero dell'intestatario del PC e cioe, ad es., ROSSI PAOLO.
- ho provato con l'istruzione:
Text1=Environ$("COMPUTERNAME";)
ma ottengo il nome proprietario (ad esempio:"ROSSI-MXE4W38Z3";) e le altre variabili Environ$ non mi aiutano.

- anche con:
Private Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
As Long
Public Function GetUserN() As String
Dim x As String * 50
GetUserName x, Len(x)
GetUserN = x
Text1.Text = GetUserN
End Function
ottengo solo l'indicazione "Proprietario"

- anche una ricerca fatta sul web mi da sempre le due soluzioni sopra esposte.
Potete aiutarmi indicandomi se c'è un'altra strada? forse utilizzando qualche altra API ?
Grazie e saluti a tutti.
Sal47
aaa