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>