0/5 (7 avis)
Snippet vu 18 132 fois - Téléchargée 30 fois
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
15 févr. 2007 à 11:59
(Commentaire de : doryseb le 16/08/2004 16:47:02, nouvelle adresse)
17 nov. 2004 à 16:38
16 août 2004 à 16:47
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 )
9 août 2004 à 17:07
manu
Dim root As New DirectoryEntry("LDAP://SERVEUR/OU=DEVELOPPEMENT,OU=OU_UTILISATEURS,DC=dev")
Dim searcher As New DirectorySearcher(root
9 août 2004 à 17:07
manu
Dim root As New DirectoryEntry("LDAP://SERVEUR/OU=DEVELOPPEMENT,OU=OU_UTILISATEURS,DC=dev")
Dim searcher As New DirectorySearcher(root
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.