Problèmes Active Directory

Version imprimable

22/02/2007, 15h40
Aurazed

Problèmes Active Directory
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:

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:

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.
22/02/2007, 16h10
LaChips

Il n'y a peut être pas les droits d'accès...
22/02/2007, 16h38
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:

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!
22/02/2007, 16h45
Thomas Lebrun

Essaye:

ADShearcher.Filter = "(ObjectClass=Utilisateurs)"

A+
22/02/2007, 16h56
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!

Citation:

Envoyé par 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!

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:

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