Voir si un utilisateur appartient à un groupe (ldap)

Question

Salut, je suis stagiaire, et je n'arrive pas &#224; trouver la solution &#224; un probl&#232;me...
En fait, je veux, &#224; partir du login courant (que j'arrive &#224; r&#233;cup&#233;rer) voir si l'utilisateur apprtient &#224; un groupe d'active directory ou non.
Voici un bout de code:

filter = "(&(objectCategory=person)(objectClass=user)(sAMAccountName=" & Left(CStr(login(0)), 10) & "))"

cn.Open "Data Source=Active Directory Provider;Provider=ADsDSOObject"

Set req = cn.Execute("<LDAP://cn=..., ou=..., ou=..., ou=...,dc=test,  dc=com>;" & filter & ";adsPath;subtree ")


If Not req.EOF Then
   msgbox "il est dans ce groupe"   
Else
   msgbox "il n'y est pas"
   End If
  req.Close
   cn.Close
   
Merci d'avance pour votre aide

psyko_tom · Answer

Plus la peine de r&#233;pondre , j'ai trouv&#233; la solution, c'&#233;tait tout bete:

Dim gr As IADsGroup
Dim s_user As IADsUser

Set gr = GetObject("[ldap://cn=-----/ LDAP://cn=-----], ou=FR------, ou=------ , ou=FR-SASEB-ITI,ou=------, dc=---,dc=---,dc=----")
For Each s_user In gr.Members
    If s_user.FullName = UserInfo(GetUser()) Then
       'traitement
    End If
Next

Peut etre que ce code servira.
++

nyoto · Answer

Euh ... comment tu r&#233;cup&#232;re le login courant ?

Voir si un utilisateur appartient à un groupe (ldap)

2 réponses

Discussions similaires