Bonjour à tous,
voilà j'essaie depuis peu d'écrire un bout de code qui me permettrait de déplacer l'ensemble des utilisateurs d'une OU donnée vers une autre OU.
Pour déplacer un utilisateur en particulier ça va ça ne pose pas de problème, mais lorsqu'il s'agit de déplacer tous les utilisateurs, ça bug un peu. En effet au lieu de déplacer tous les utilisateurs comme je le voudrais, il me déplace l'OU en question avec tous les utilisateurs. Or moi je voudrais uniquement déplacer les utilisateurs.
Quelqu'un peut-il me donner la syntaxe correcte pour mon code 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
 
 Sub MoveTo(sender As Object, e As EventArgs)
      Try
      ' Connexion à l'utilisateur à déplacer
      Dim monUserAdeplacer As New DirectoryEntry("LDAP:// OU="+DropDownList2.Text.ToString()+",dc=tamac,dc=local","Administrateur","admin")
       ' Déplacement de l'utilisareur vers son nouvel emplacement dans l'annuaire
      monUserAdeplacer.MoveTo(New DirectoryEntry("LDAP://OU="+DropDownList3.Text.ToString()+",dc=tamac, dc=local","Administrateur","admin"))
      monUserAdeplacer.Close()
 
    Catch ex As Exception
    response.write(ex.Message)
    End Try
 
 
 
 
    End Sub