Rilevare il nome dell'utente e quello della società che compaiono
aprendo la finestra Pannello di controllo -> Sistema
La funzione per trovare il nome è GetUserName
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
I due parametri sono rispettivamente una stringa per contenere il nome, e le dimensioni che vuoi impostare per questa stringa.
Dim sName as string
dim sTemp as string
dim ret as long
sName=string$(255,0)
ret=GetUserName(sTemp,256)
sName=Left(sTemp,ret)
Testato su: Windows 98, Windows Me