| 12
 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
 31
 32
 
 |  
Dim ParentOU,objDomain 
'Set dse =GetObject("LDAP://RootDSE" ) 
'Set domain = GetObject("LDAP://" & dse.Get("defaultNamingContext" )) 
 
'*************************************************'  
'...Création d'utilisateurs dans l'OU concernée...' 
'*************************************************'      
Set objDomain = GetObject("LDAP://DC=me,DC=local" )     
objDomain.setInfo
Set ParentOU = objDomain.GetObject("organizationalUnit", "OU=?")     
ParentOU.setInfo
'******************************************************'
'...Insertion des informations dans Active Directory...'
'******************************************************'
Set NewUser = ParentOU.create("user", "CN=" & Utilisateur)
 
    WITH NewUser
    .Put "cn", Utilisateur  
    .Put "GivenName",Prenom  
    .Put "sn", Nom  
    .Put "name", Utilisateur  
    .Put "physicalDeliveryofficeName", Site  
    .Put "department", Service  
    .Put "samAccountName", Utilisateur  
    .Put "userPrincipalName", Utilisateur &"@me.local"  
    .Put "DN","cn=" & Utilisateur &",DC=me,DC=local"  
    .Put "Accountexpires", Expiration 
    .setpassword "utilisateur"  
    .accountdisabled = FALSE       
    .Put"pwdLastSet",0       
    END WITH | 
Partager