Name space System.DirectoryServices.ActiveDirectory

**momoh** · 04/04/2010, 15h36

Bonjour à tous,
Dans mon application j'essaie de lister tous les domaine controler présent dans mon organisation. Pour ce faire j'utilise les name space suivants: system.directoryservices et system.directoryservices.activedirectory.
Le problème c'est lorsque je clique sur l'objet Button, aucun domain controler ne s'affiche, j'obtiens à chaque fois le message suivant: System.DirectoryServices.ActiveDirectory.DomainControllerCollection.
Et ce à chaque fois que je clique sur l'objet Button.
Mon code se base sur le tuto qui est présent sur le site ici
Quelqu'un peut-il jeter un coup d'œil à mon code et me dire pourquoi j'ai toujours ce message qui apparait à chaque fois que je clique sur le bouton s'il vous plait ?
Bien à vous.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
<%@ Page Language="VB" %>
<%@ import Namespace="System.DirectoryServices" %>
<%@ import Namespace="System.DirectoryServices.ActiveDirectory" %>
 
<script runat="server">
 
    ' Insert page code here
    '
 
    Sub Button1_Click(sender As Object, e As EventArgs)
     Try
     ' on se connecte au domaine tamac.local
     Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://tamac.local", "Administrateur", "admin")
     Dim listeDC As DomainControllerCollection = Nothing
 
        ' Définition du context de connexion : connexipn au domaine courant
        Dim monContext As New DirectoryContext(DirectoryContextType.Domain,Domain.GetCurrentDomain.ToString)
        Dim monDomaine As Domain = Domain.GetDomain(monContext)
        ' Récupération de la liste des contrôleurs de domaine
        listeDC = monDomaine.FindAllDomainControllers()
        response.write(listeDC)
 
     Catch ex As Exception
     response.write(ex.Message)
     End Try
    End Sub
 
</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <p align="center">
            <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
        </p>
        <p align="center">
            &nbsp;
        </p>
        <!-- Insert content here -->
    </form>
</body>
</html>

**blade159** · 05/04/2010, 02h22

bonsoir, le problème doit venir de ton

response.write(listeDC)

Attention: listeDC correspond à un DomainControllerCollection (c'est à dire une liste de DomainControler)!

il te faut parcourir cette liste pour en afficher chaque élément, on doit pouvoir le faire comme ça:

foreach(DC as DomainControler in listeDC)
{
response.write(DC.ToString())
}

je n'ai pas pu tester ce code mais tiens-moi au courant

**momoh** · 05/04/2010, 15h08

Bonjour,
Merci d'avoir répondu à mon post, je vai tester ce code et je te tiendrai au courant

Bien à toi.

**momoh** · 05/04/2010, 16h14

Bonjour,
J'ai tester les modifications, mais là j'ai un autre message d'erreur. Lorsque je clique sur le bouton, il m'affiche :

La référence d'objet n'est pas définie à une instance d'un objet.

Je sais pas si tu peux me dire à quoi cela peut-il bien correspondre ? Étant donné que je suis encore novice en .NET

Bien à toi.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
<%@ Page Language="VB" %>
<%@ import Namespace="System.DirectoryServices" %>
<%@ import Namespace="System.DirectoryServices.ActiveDirectory" %>
 
<script runat="server">
 
    ' Insert page code here
    '
 
    Sub Button1_Click(sender As Object, e As EventArgs)
     Try
     ' on se connecte au domaine tamac.local
     Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://tamac.local", "Administrateur", "admin")
     Dim listeDC As DomainControllerCollection = Nothing
 
        ' Définition du context de connexion : connexipn au domaine courant
        Dim monContext As New DirectoryContext(DirectoryContextType.Domain,Domain.GetCurrentDomain.ToString)
        Dim monDomaine As Domain = Domain.GetDomain(monContext)
        For Each DC as DomainController in listeDC
        ' Récupération de la liste des contrôleurs de domaine
        response.write(DC.ToString())
        Next
 
     Catch ex As Exception
     response.write(ex.Message)
     End Try
    End Sub
 
</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <p align="center">
            <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
        </p>
        <p align="center">
        </p>
        <!-- Insert content here -->
    </form>
</body>
</html>

**blade159** · 05/04/2010, 16h21

ce message vient du fait que ListeDC n'est pas initialisé.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
<%@ Page Language="VB" %>
<%@ import Namespace="System.DirectoryServices" %>
<%@ import Namespace="System.DirectoryServices.ActiveDirectory" %>
 
<script runat="server">
 
    ' Insert page code here
    '
 
    Sub Button1_Click(sender As Object, e As EventArgs)
     Try
     ' on se connecte au domaine tamac.local
     Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://tamac.local", "Administrateur", "admin")
     Dim listeDC As DomainControllerCollection
 
        ' Définition du context de connexion : connexipn au domaine courant
        Dim monContext As New DirectoryContext(DirectoryContextType.Domain,Domain.GetCurrentDomain.ToString)
        Dim monDomaine As Domain = Domain.GetDomain(monContext)
        
        ' Récupération de la liste des contrôleurs de domaine
        listeDC = monDomaine.FindAllDomainControllers()

        For Each DC as DomainController in listeDC
        ' Récupération de la liste des contrôleurs de domaine
        response.write(DC.ToString())
        Next
 
     Catch ex As Exception
     response.write(ex.Message)
     End Try
    End Sub
 
</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <p align="center">
            <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
        </p>
        <p align="center">
        </p>
        <!-- Insert content here -->
    </form>
</body>
</html>

**momoh** · 05/04/2010, 16h50

Bonjour,
ça fonctionne c'est génial

.
Un tout grand merci pour ton aide

Bien à toi.
Ps: Je sais pas s'il est possible que tu m'apportes quelques éclaircissements sur un autre de mes post qui s'intitule "désactiver les utilisateurs d'une organizational unit dans active directory" s'il te plait ? En tout cas un grand merci pour ton aide

Name space System.DirectoryServices.ActiveDirectory

VB.NET

Vue hybride

Discussions similaires

Partager

Partager