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

[gighen99]

come faccio da programma vb6 a sapere l'utente ed il gruppo che sta utilizzando la macchina in quel momento?
Il dominio è un Windows 2000 server.

[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

[Luciano79]

Scusa, ho sbagliato... prendi questa

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))
TrovaNomeComputer = 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

[xegallo]

Luciano se il codice lo metti tra i tag code (per istruzioni vedi regolamento) magari si capisce anche

[gighen99]

grazie, x l'utente ho risolto...
ora il problema rimangono i gruppi e altri dati relativi all'utente.
In ufficio mi hanno parlato di gestione dell'LDAP, ma nessuno sapeva come fare. Qualcuno di voi sa qualcosa dei riferimenti da citare all'inizio del progetto e / o come fare a gestire questo LDAP?
Grazie anticipatamente