Active directory, déplacer tous les utilisateurs d'une unité d'organisation vers une autre OU
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:
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 |
