Bonjour,
je suis novice dans le domaine du vbscript et je cherche à manipuler Active Directory afin de créer des utilisateurs(ajout des infos),de les supprimer,... bref gérer les utlisateurs d'Active Directory de façon automatique.

J'ai cherché et j'ai trouvé énormement de chose mais sa ne marche pas et je ne comprends pas certaines choses.

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
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
Voici une procédure que j'ai trouvé sur certains sites mais je ne sais pas comment remplir les champs CN,DN,....

Suis-je sur la bonne voix ou completement à l'ouest ?

Bonne journée