vbs trouver attibuts utilisateurs

Question

Bonjour à tous,
Voila, j'écris un code en vbscript permettant de récupérer tous les utilisateurs d'un AD avec leurs attributs.


For Each oUser In oCont
            Select Case LCase(oUser.Class)
                Case "user"
                            OutPutFile.WriteLine "Nom : " &amp; oUser.Get ("sn")                            
                        OutPutFile.WriteLine "Prénom : " &amp; oUser.Get ("givenName")                    
        


Je voudrai afficher les différent groupes auxquels l'utilisateur appartient ainsi que son OU/container (ou sous OU) et son chemin LDAP
Le voudrai aussi afficher sa date de création ou de modification.
Quelqu'un aurait une idée ou je pourrait trouver la liste d'attributs?

Merci !

Renfield · Answer

fais une requete LDAP, tu peux tout demander

(doc complète sur MSDN)

http://msdn.microsoft.com/en-us/library/ms683980(VS.85).aspx

remifalcon · Answer

Yo Merci beaucoup,
J'ai trouvé la plupart des attributs mais je n'arrive toujours pas à récupérer le nom des groupe de l'utilisateur
Une idée?
Merci

Renfield · Answer

With GetObject("LDAP://" & CreateObject("ADSystemInfo").username)
    For Each Group In .MemberOf
        Msgbox Group
    Next
End With

Vbs trouver attibuts utilisateurs

3 réponses

Votre réponse

Discussions similaires