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 |
Partager