Active Directory - Copie d'utilisateur
Bonjour,
Je suis confronté depuis une semaine à de gros problèmes en utilisant le DirectoryService de VB.Net. Pour faire court, voici ma procédure :p :
Code:
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
|
Private Sub copieUser(ByRef userSRC As DirectoryEntry, ByVal newQuadri As String, ByVal newPrenom As String, ByVal newNom As String)
Dim newUser As DirectoryEntry = userSRC.Parent.Children.Add("CN=" & newPrenom & " " & newNom.ToUpper, userSRC.SchemaClassName)
'Définition des noms et prénom du nouvel utilisateur
newUser.Properties("displayName").Add(newPrenom & " " & newNom.ToUpper)
newUser.Properties("givenName").Add(newPrenom)
newUser.Properties("sn").Add(newNom.ToUpper)
newUser.Properties("userPrincipalName").Add(newQuadri) 'Nom
newUser.Properties("SAMAccountName").Add(newQuadri)
newUser.CommitChanges()
'Création du mot de passe
newUser.Invoke("SetPassword", New Object() {"12345678"})
newUser.CommitChanges()
'Groupes
For Each objGroup As Object In userSRC.Properties("memberOf")
newUser.Properties("memberOf").Add(objGroup)
Next
'Activation du compte de l'utilisateur
newUser.Properties("userAccountControl").Value = ADS_UF_NORMAL_ACCOUNT
newUser.CommitChanges()
End Sub |
Mon problème se situe au niveau de la copie des groupes dans lequel l'utilisateur doit être :
Code:
1
2
3
4
5
|
'Groupes
For Each objGroup As Object In userSRC.Properties("memberOf")
newUser.Properties("memberOf").Add(objGroup)
Next |
A priori, ça à l'air chouette, mais : "Le server ne souhaite pas traiter la requête (HRESULT : 0x80072035)" :(
J'ai tester déja pas mal de choses, sans succès. Quelqu'un a-t-il déja fait face à ce cas de figure ?
