Retrouver un utilisateur dans l'active directory, ldap

0/5 (7 avis)

Snippet vu 18 132 fois - Téléchargée 30 fois

Contenu du snippet

Rien de révolutionnaire, c'est juste que j'ai eu du mal a me documenter la dessus, alors je me suis dit que j'allais le poster :)

Source / Exemple :


Private Sub chercheruser(ByVal nom As String)
        Dim root As New DirectoryEntry("LDAP://SERVEUR/OU=DEVELOPPEMENT,OU=OU_UTILISATEURS,DC=dev")
        Dim searcher As New DirectorySearcher(root)

        searcher.Filter = "(anr=" + nom + ")"
        searcher.PropertiesToLoad.Add("cn")
        searcher.PropertiesToLoad.Add("name")
        searcher.PropertiesToLoad.Add("givenname")
        searcher.PropertiesToLoad.Add("sAMAccountName")
        'searcher.PropertiesToLoad.Add("mail")
        'searcher.PropertiesToLoad.Add("department")       
        'searcher.PropertiesToLoad.Add("telephoneNumber")

        Dim result As SearchResult
        For Each result In searcher.FindAll()
            MsgBox("Nom de l'utilisateur : " + result.Properties("cn")(0))
            MsgBox(result.Properties("name")(0))
            MsgBox(result.Properties("givenName")(0))
            MsgBox(result.Properties("sAMAccountName")(0))
            'MsgBox(result.Properties("mail")(0))
            'MsgBox(result.Properties("department")(0))
            'MsgBox(result.Properties("telephoneNumber")(0))
        Next
        'quelques autres propriétés :
        'givenName,initials,sn,displayName,description,physicalDeliveryOfficeName,
        'telephoneNumber,mail,wWWHomePage,otherTelephone,url,streetAddress,postalCode
        'postOfficeBox,userPrincipalName,facsimileTelephoneNumber
    End Sub

Conclusion :


J'espère que se sera utile ...

A voir également

Ajouter un commentaire Commentaires
userinfoman
Messages postés
2
Date d'inscription
jeudi 15 février 2007
Statut
Membre
Dernière intervention
27 août 2013

15 févr. 2007 à 11:59
http://msdn2.microsoft.com/en-us/library/ms679117.aspx
(Commentaire de : doryseb le 16/08/2004 16:47:02, nouvelle adresse)
arouche
Messages postés
19
Date d'inscription
mardi 3 décembre 2002
Statut
Membre
Dernière intervention
1 septembre 2010

17 nov. 2004 à 16:38
Y a t il une reference à ajouter au projet ?
doryseb
Messages postés
2
Date d'inscription
jeudi 12 août 2004
Statut
Membre
Dernière intervention
16 août 2004

16 août 2004 à 16:47
Si vous voulez avoir tous les attributs qui s'appliquent à Active Directory, je vous conseil ce site:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adschema/adschema/a_physicaldeliveryofficename.asp
Bon c'est en Anglais et il faut un peu naviguer dans les sous-répertoires mais y'a tout dedans même si des fois les noms sont assez tordus (ex: pour Bureau c'est physicalDeliveryOfficeName :-s )
flipper49
Messages postés
6
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
11 août 2007

9 août 2004 à 17:07
Bonjour, j'ai les deux ligne suivantes en rouge, j'arrive pas a troiuver la solution je susi en vb 6. Qq 'un porrais t'il m'aiguiller merci

manu

Dim root As New DirectoryEntry("LDAP://SERVEUR/OU=DEVELOPPEMENT,OU=OU_UTILISATEURS,DC=dev")
Dim searcher As New DirectorySearcher(root
flipper49
Messages postés
6
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
11 août 2007

9 août 2004 à 17:07
Bonjour, j'ai les deux ligne suivantes en rouge, j'arrive pas a troiuver la solution je susi en vb 6. Qq 'un porrais t'il m'aiguiller merci

manu

Dim root As New DirectoryEntry("LDAP://SERVEUR/OU=DEVELOPPEMENT,OU=OU_UTILISATEURS,DC=dev")
Dim searcher As New DirectorySearcher(root
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.