Quels paramètres dans DirectoryEntry() .? [Résolu]

pobfr 4 Messages postés mercredi 21 septembre 2011Date d'inscription 21 septembre 2011 Dernière intervention - 21 sept. 2011 à 12:01 - Dernière réponse : 4u4me4us 781 Messages postés lundi 22 janvier 2007Date d'inscription 30 octobre 2013 Dernière intervention
- 21 sept. 2011 à 15:15
Bonjour,

je m'essaye au VB et j'ai besoin de faire une connexion à un Active Directory. Le hic c'est que je ne sais pas ce que je dois mettre comme paramètres dans DirectoryEntry() .
A chaque fois que le lance le code dans Catch s'execute.

Voici mon code :
Imports System.DirectoryServices

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://Win2K8R2/ou=Administrateur,dc=isec,dc=local)", "Administrateur@isec.local", "Admin2008R2")
            
            Dim searcher As DirectorySearcher = New DirectorySearcher(Ldap)

            searcher.Filter = "(objectClass=user)"

            Dim DirEntry As DirectoryEntry
            For Each result As SearchResult In searcher.FindAll
                DirEntry = result.GetDirectoryEntry

                Console.WriteLine("Login : " + DirEntry.Properties("SAMAccountName").Value)
                Console.WriteLine("Nom : " + DirEntry.Properties("sn").Value)
                Console.WriteLine("Prénom : " + DirEntry.Properties("givenName").Value)
                Console.WriteLine("Email : " + DirEntry.Properties("mail").Value)
                Console.WriteLine("Tél : " + DirEntry.Properties("TelephoneNumber").Value)
                Console.WriteLine("Description : " + DirEntry.Properties("description").Value)

                Console.WriteLine("-------------------")
            Next


        Catch Ex As Exception
            MessageBox.Show(Ex.Message)
        End Try

    End Sub
End Class


Pouvez vous m'aidez ?

Merci.
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
pobfr 4 Messages postés mercredi 21 septembre 2011Date d'inscription 21 septembre 2011 Dernière intervention - 21 sept. 2011 à 14:30
3
Merci
Autant pour moi.

En mettant l'adresse IP après LDAP ça marche. En gros sa donne :

Dim Ldap As DirectoryEntry = New DirectoryEntry("LDAP://Win2K8R2/ou=Administrateur,dc=isec,dc=local)", "Administrateur@isec.local", "Admin2008R2")


En tout cas merci 4u4me4us.
(Et j'ai regardé tes liens ils sont intéressant quant même ^^ )

Merci pobfr 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 101 internautes ce mois-ci

Commenter la réponse de pobfr
4u4me4us 781 Messages postés lundi 22 janvier 2007Date d'inscription 30 octobre 2013 Dernière intervention - 21 sept. 2011 à 13:08
0
Merci
Je ne connais pas la fonction. par contre je suis allé dans l'explorateur d'objet et j'ai eu le info. suivantes

public DirectoryEntry(string path, string username, string password)


De plus (si tjs avec l'explorateur d'objet) tu dois ajouter

Imports System.DirectoryServices.DirectoryEntry
Commenter la réponse de 4u4me4us
pobfr 4 Messages postés mercredi 21 septembre 2011Date d'inscription 21 septembre 2011 Dernière intervention - 21 sept. 2011 à 13:17
0
Merci
Merci.

Mais je sais qu'il fallait 3 chaines de caractères mais c'est surtout sur le nom du serveur que je ne sais pas ce qu'il faut mettre. Juste le nom du serveur ? Le nom du serveur suivis du domain ? Ou je ne sais quoi d'autre.
Commenter la réponse de pobfr
4u4me4us 781 Messages postés lundi 22 janvier 2007Date d'inscription 30 octobre 2013 Dernière intervention - 21 sept. 2011 à 13:26
0
Merci
Ce que te demande la fonction c'est le path. Tu cherche bien a atteindre un dossier ou un fichier ?

Donc donne luis le chemin réseau de celui-ci.

un truc style "\\monserveur\lefichierquejeveux.txt".
Commenter la réponse de 4u4me4us
pobfr 4 Messages postés mercredi 21 septembre 2011Date d'inscription 21 septembre 2011 Dernière intervention - 21 sept. 2011 à 13:48
0
Merci
Euh... Non.

Enfaite je cherche a contacter l'AD pour y récupérer les utilisateurs.
Commenter la réponse de pobfr
4u4me4us 781 Messages postés lundi 22 janvier 2007Date d'inscription 30 octobre 2013 Dernière intervention - 21 sept. 2011 à 14:02
0
Merci
G trouvé le tuto suivant
http://morpheus.developpez.com/addotnet/ADVBNET/

Aussi
http://www.developpez.net/forums/d634809/dotnet/developpement-windows/windows-forms/echec-connexion-ldap/

Ou encore
http://www-sop.inria.fr/members/Laurent.Mirtain/ldap-livre.html

De plus dans mon premier message je fais référence à Imports System.DirectoryServices.DirectoryEntry donc cela pourrais t'ouvrir une autre piste.
Commenter la réponse de 4u4me4us
4u4me4us 781 Messages postés lundi 22 janvier 2007Date d'inscription 30 octobre 2013 Dernière intervention - 21 sept. 2011 à 15:15
0
Merci
Tant mieux , j'aime les histoires qui finissent bien!

Bon code!
Commenter la réponse de 4u4me4us

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.