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 ...
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.