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