Retrouver un utilisateur dans l'active directory, ldap

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 541 fois - Téléchargée 28 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

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

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

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

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 )
Messages postés
6
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
11 août 2007

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
Messages postés
6
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
11 août 2007

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.