[Active Directory] Avoir le nom du groupe?

Version imprimable

16/01/2007, 21h25
CinErarY

[Active Directory] Avoir le nom du groupe?
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:

1 2 Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
et pour le groupe?
17/01/2007, 04h50
CinErarY

[Active Directory] Comment avoir le nom des groupes de l'utilisateur courrant?

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:

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?
17/01/2007, 12h45
ProgElecT

Bonjour

Citation:

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.
17/01/2007, 12h55
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...

essais

Code:

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

17/01/2007, 13h59
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?

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

Code:

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

22/01/2007, 14h10
AlainTech

Merci pour le retour d'info!