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 : 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
 
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?