Pourquoi ?

Lorsqu'un utilisateur se connecte, il est important de savoir si c'est un prof ou un élève, et de connaître sa discipline ou sa classe.

Principe :

Ce script fonctionne à partir de la moulinette de gagny. Il vas interroger AD pour connaître tous les groupes qui contiennent l'utilisateur courant. On recherche ensuite la description du groupe
si un groupe a une description qui est discipline alors c'est un prof et sa discipline, c'est le nom du groupe
Si un groupe a une description qui est classe, alors c'est un élève et sa classe c'est le nom du groupe

PDepart = "<LDAP://DC=" & sDomaine & ",DC=local>"
Cond= "(&(samAccountName="& sUtilisateur &")(objectcategory=User))"
Recup = "memberof,distinguishedname"

objCommand.CommandText= PDepart&";"&Cond&";"&Recup&";subtree"
Set OResult=objCommand.Execute
ListeGroupesDN = Oresult.Fields("memberof")
For Each NomGroupeDN IN ListeGroupesDN
set Ogrp=getobject("LDAP://"&NomGroupeDN)
NomGrp = Ogrp.samaccountname
If Ogrp.description="classe" Then
classe=Ogrp.samaccountname
tp ="lv"
End If
If Ogrp.description="discipline" Then
tp="prof"
discipline=Ogrp.samaccountname
End If
Next