Désactiver tous les utilisateurs d'une organizational unit dans active directory

**momoh** · 03/04/2010, 16h02

Bonjour à tous,
Voilà j'essaie depuis quelques jours de mettre en place une fonctionnalité supplémentaire dans mon application. Cette dernière consisterait à désactiver tous les utilisateurs d'une OU donnée en cliquant sur un bouton.
Je peux désactiver un compte en particulier sans souci, mais dès qu'il s'agit de désactiver tous les comptes d'une ou, ça pose un problème, ça ne fonctionne pas. mon code me désactive un utilisateur et il ignore les autres.
Quelqu'un a t-il une idée sur ce qui ne va pas 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
45
46
47
 
<%@ Page Language="VB" %>
<%@ import Namespace="System.DirectoryServices" %>
<script runat="server">
 
    ' Insert page code here
    '
 
    Sub Button1_Click(sender As Object, e As EventArgs)
     Try
      Dim Ldap As DirectoryEntry = new DirectoryEntry("LDAP://ou=consultant, dc=tamac,dc=local", "Administrateur", "admin")
    ' on instancie la méthode DirectorySearcher
      Dim searcher As DirectorySearcher = New DirectorySearcher (Ldap)
      searcher.Filter = "(&(objectCategory=person)(saMAccounName=*))"
 
    'J'instancie l'objet MonUser en tant que DirectoryEntry
    Dim MonUser As DirectoryEntry
    'J'effectue une boucle qui va me permettre de récupérer le résultat correspondant au filtre ci-dessus
    For each result As SearchResult In searcher.FindAll
    MonUser = result.GetDirectoryEntry
    'MonUser = Properties("Name").Value
    ' Récupération du flag indiquant l'état d'activation du compte
      Dim maValeur As Integer = CType( MonUser.Properties("userAccountControl").Value, Integer)
      ' Modification du flag pour désactiver le compte
        MonUser.Properties("userAccountControl").Value = maValeur Or 2
         'response.redirect("ou_selected.aspx")
        Next
        ' Validation des modifications
         MonUser.CommitChanges()
     Catch ex As Exception
     response.write(ex.Message)
     End Try
    End Sub
 
</script>
<html>
<head>
</head>
<body>
    <form runat="server">
        <div align="center">
            <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
        </div>
        <!-- Insert content here -->
    </form>
</body>
</html>

**blade159** · 05/04/2010, 17h08

je pense que lorsque tu appuies sur ton bouton, seul le dernier compte utilisateur est désactivé...

si c'est le cas, change la position de ton

Code :

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

1
2
 
MonUser.CommitChanges()

pour l'intégrer à ta boucle For Each

tiens-moi au courant

**momoh** · 05/04/2010, 17h16

Bonjour,
Merci d'avoir répondu

je vai tester et je te tiens au courant.
Un grand merci

Bien à toi.

**blade159** · 05/04/2010, 17h20

c'est normal ...

**momoh** · 05/04/2010, 20h17

Bonsoir,
Merci pour ton aide ça fonctionne enfin après plusieurs jours. Effectivement tu avais raison il fallait mettre le commit.change() dans la boucle for.
Merci pour ton aide.
Bien à toi.

**blade159** · 05/04/2010, 20h20

**hunteshiva** · 06/04/2010, 08h33

PS: pensez a mettre

en bas *svp*

Désactiver tous les utilisateurs d'une organizational unit dans active directory

VB.NET

Discussions similaires

Partager

Partager