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

Signaler
Messages postés
4
Date d'inscription
mercredi 21 septembre 2011
Statut
Membre
Dernière intervention
21 septembre 2011
-
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
-
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.

7 réponses

Messages postés
4
Date d'inscription
mercredi 21 septembre 2011
Statut
Membre
Dernière intervention
21 septembre 2011

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 ^^ )
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
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
Messages postés
4
Date d'inscription
mercredi 21 septembre 2011
Statut
Membre
Dernière intervention
21 septembre 2011

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.
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
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".
Messages postés
4
Date d'inscription
mercredi 21 septembre 2011
Statut
Membre
Dernière intervention
21 septembre 2011

Euh... Non.

Enfaite je cherche a contacter l'AD pour y récupérer les utilisateurs.
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
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.
Messages postés
781
Date d'inscription
lundi 22 janvier 2007
Statut
Membre
Dernière intervention
30 octobre 2013
3
Tant mieux , j'aime les histoires qui finissent bien!

Bon code!