Discussion :

[CinErarY]

salut, je cherche a avoir le nom de groupe du user loggé sur le poste courrant
ca devrais pas être compliqué, pour le nom d'user on utilise ceci:

Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
    (ByVal lpBuffer As String, nSize As Long) As Long

et pour le groupe?

[CinErarY]

salut, je cherche a avoir le nom de groupe du user loggé sur le poste courrant
ca devrais pas être compliqué, pour le nom d'user on utilise ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

GetUserName Lib "advapi32.dll

je suis en xp, et sur le site de microsoft, ils parlent principalement de faire des requêtes avec ADODB (avec win 2000 en plus), mais je n'ai pas trouvé d'information pour savoir de quels groupes fait partie l'usager courrant

quelqu'un a un indice?

[ProgElecT]

Bonjour

je cherche a avoir le nom de groupe du user loggé sur le poste courrant
ca devrais pas être compliqué

Peut être avec la fonction Environ qui renvoie la valeur de type String associée à une variable d'environnement du système d'exploitation.

[CinErarY]

en fait c'est plus une variable qui est stockée sur le serveur Active Directory.. a moins qu'au login, un tableau des groupes correspondant au username soient envoyés et stockés sur le poste client?

je ne connais pas très bien ca...

[ProgElecT]

essais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim Indx
Indx = 1: List1.Clear
Do While Trim$(Environ(Indx)) <> ""
 If Trim$(Environ(Indx)) <> "" Then   ' Vérifie l'entrée
  List1.AddItem Trim$(Environ(Indx))
  Indx = Indx + 1
  Else
  Exit Do
 End If
 DoEvents
Loop
End Sub

[CinErarY]

aucune trace des groupes...
sur msdn ils disent d'utiliser ADODB.Connection
et de faire des requêtes LDAP
ca dit quelque-chose a quelqu'un?

[CinErarY]

J'ai trouvé la réponse, j'ai oublié de vous la dire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function FindGroup()
Dim userTemp As Object
Dim User1 As Object
Dim strDomain As String
Dim strUserName As String
 
strDomain = "VotreDomaine"
strUserName = "VotreNomD'Utilisateur"
 
Set userTemp = GetObject("WinNT://" & strDomain & "/" & strUserName)
 
For Each User1 In userTemp.Groups
    Debug.Print User1.name
Next
 
End Function

[AlainTech]

Merci pour le retour d'info!