[vb6]. utente e gruppo di lavoro in vb 6

[Luciano79]

Ciao, non ti so dire riguardo al gruppo, ma conosco la funzione che restituisce il nome dell'utente e, se ti interessa, anche il nome del computer in rete.
Eccoti due esempi:

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub TrovaNomeComputer() as String
Dim VarRIS as Long
Dim NomeComputer As String * 145
Dim lunghezzastringa As Long
NomeComputer = String(256, 0)
VarRIS = GetComputerName(NomeComputer, Len(NomeComputer))
NomeComputer = NomeComputer
End Sub

Private Sub TrovaNomeUser() as String
Dim VarRIS as Long
Dim NomeUser As String * 145
Dim lunghezzastringa As Long
NomeUser = String(256, 0)
VarRIS = GetUserName(NomeUser, Len(NomeUser))
TrovaNomeUser = NumeUser
End Sub