1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Retrouver un utilisateur dans l'active directory, ldap

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

Commenter

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

Signaler
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)
Signaler
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 ?
Signaler
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 )
Signaler
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
Signaler
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
S'inscrire maintenant

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.