Discussion :

[Aurazed]

Bonjour à tous.
Je suis entrain de réaliser un site en asp.net (vb) qui parcours l'Active Directory.
Mon problème est le suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If DirectoryEntry.Exists(PathLDAP) Then
            Dim User As New DirectoryEntry(PathLDAP)
            ...
End if

Lorsque je lance l'éxécution depuis WebDevelopper tout marche bien.
(http://localhost:1000/MonAppli/Default.aspx)
Mais lorsque j'attaque la page depuis un autre poste
(http://MonPoste/MonAppli/Default.aspx)
j'ai l'erreur suivante qui est soulevée:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Le domaine spécifié n'existe pas ou n'a pas pu être contacté.

Si vous avez deja recontré ce problème ca serait sympa de me dépanner!

Merci d'avance.

[LaChips]

Il n'y a peut être pas les droits d'accès...

[Aurazed]

J'ai une autre question concerant cette fois ci le filtre de l'objet DirectorySearcher.

Je voudrais obtenir uniquement les entrées appartenant à l'UO : Utilisateurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim ADShearcher As New DirectorySearcher()
ADShearcher.Filter = "(ObjectClass = Utilisateurs)"
MessageBox.Show(ADShearcher.FindAll().Count & " Entrées trouvées")

Ce code m'affiche 0 entrées!

Si je m'y suis mal pris merci de me corriger!

[Thomas Lebrun]

Essaye:

ADShearcher.Filter = "(ObjectClass=Utilisateurs)"



A+

[Aurazed]

J'ai testé mais cette solution retourne aussi 0 résultats

Si j'utilise:
ADShearcher.Filter = "(&(objectClass=person)"
cela filtre uniquement les utilisateurs, mais ca ne filtre pas sur l'OU!

[guitoo]

J'ai testé mais cette solution retourne aussi 0 résultats

Si j'utilise:
ADShearcher.Filter = "(&(objectClass=person)"
cela filtre uniquement les utilisateurs, mais ca ne filtre pas sur l'OU!

slt, g un site ASP.net a faire aussi avec VB et je doi aussi interroger l'AD

pour ce faire j'ai fait ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
                ' Définition de l'emplacement de recherche
                Dim XoLdap As New DirectoryEntry("LDAP://chemain", "utilisateur", "mot de passe")
 
                Dim XoSearch As New DirectorySearcher(XoLdap)
 
                ' Emplacement où la recherche doit être effectuée 
                ' dans la hiérarchie Active Directory
                XoSearch.SearchRoot = XoLdap
 
                ' Définition du Scope de la recherche, ici le conteneur 
                ' seulement et tous ses "sous conteneur"
                XoSearch.SearchScope = SearchScope.Subtree
 
                ' Filtre uniquement les objets de type "user"
                XoSearch.Filter = "(objectClass=user)"

pe etre ke ca pe t'aider

bon courage