Voir si un utilisateur appartient à un groupe (ldap)

Salut, je suis stagiaire, et je n'arrive pas à trouver la solution à un problème...
En fait, je veux, à partir du login courant (que j'arrive à récupérer) voir si l'utilisateur apprtient à 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

Plus la peine de répondre , j'ai trouvé la solution, c'était tout bete:

Dim gr As IADsGroup
Dim s_user As IADsUser

Set gr = GetObject("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.
++

Euh ... comment tu récupère le login courant ?