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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
| '************************************************************************
' Script de création de comptes utilisateurs dans le conteneur "Users" a partir d'un fichier Excel
'************************************************************************
'------------------------------------------------------------------------
' Déclaration des variables
'------------------------------------------------------------------------
Dim oexapp, oexwk, oexws, owshshell, ocellule, i
dim nom, prenom, loggin, mdp, nomaff, messagerie, ville, bureau, liste
'liste = ""
'------------------------------------------------------------------------
' Accès au fichier Excel contenant les données des utilisateurs a créer
'------------------------------------------------------------------------
set oexapp = wscript.createobject("Excel.Application")
set owshshell = wscript.createobject("wscript.shell")
oexapp.visible = false
set oexwk = oexapp.workbooks.open(owshshell.currentdirectory & "\utilisateurs.xls")
set oexws = oexwk.activesheet
'oexapp.visible=true
'------------------------------------------------------------------------
' Déclaration du Domaine
'------------------------------------------------------------------------
Dim MonDomaine
MonDomaine="dc=MyServer, dc=local"
'ex: MonDomaine="dc=Fondation-Auteuil, dc=com"
Set objCN = GetObject("LDAP://OU=Utilisateurs,OU=Client,OU=MesUsers," & MonDomaine)
'A modifier pour le site selon l'OU
'Exemple: Set objCN = GetObject("LDAP://OU=Utilisateurs,OU=Blanquefort St Joseph (BLA),OU=Fondation," & MonDomaine)
Set objGroup = GetObject("LDAP://CN=Utilisa. du domaine, CN=Users," & MonDomaine)
'------------------------------------------------------------------------
' Boucle d'extraction des données Excel ligne par ligne
'------------------------------------------------------------------------
i = 2
Do until oexapp.cells(i,2).value = ""
' ------------------------------------------------------------------------
' Assignation de chaque colonne Excel dans une variable
' ------------------------------------------------------------------------
nom = oexapp.cells(i,1).value
prenom = oexapp.cells(i,2).value
loggin = oexapp.cells(i,3).value
mdp = oexapp.cells(i,4).value
nomaff = oexapp.cells(i,5).value
messagerie = oexapp.cells(i,6).value
ville = oexapp.cells(i,7).value
bureau = oexapp.cells(i,8).value
'wscript.echo "création compte " & nom
'Set objDomain = GetObject("LDAP://dc=MyServer, dc=local")
' ------------------------------------------------------------------------
' Création de l'utilisateur "# i" et assignation des valeurs: nom, prenom, loggin, mdp,
' nomaff,messagerie, ville, bureau
' ------------------------------------------------------------------------
Set objUser = objCN.Create("User", "cn= " & nomaff & "")
objUser.Put "sAMAccountName", loggin
'objUser.Put "UserPrincipalName", loggin
objUser.Put "sn", nom
objUser.Put "givenName", prenom
objUser.Put "Name", Nom & " " & Prenom
objUser.Put "displayName", Nom & " " & Prenom
objUser.Put "physicalDeliveryOfficeName", bureau
objUser.Put "mail", messagerie
objUser.Put "l", ville
objUser.SetInfo
Set objUser = GetObject("LDAP://cn=" & nomaff & ",OU=Utilisateurs,OU=Client,OU=MesUsers," & MonDomaine)
objUser.SetPassword mdp
objGroup.Put "sAMAccountName", "Utilisa. du domaine"
Set objUser = GetObject("LDAP://cn=" & nomaff & ",OU=Utilisateurs,OU=Client,OU=MesUsers," & MonDomaine)
objUser.AccountDisabled = FALSE
objUser.SetInfo
liste = liste + nom & ", "
i = i+1
Loop
' ------------------------------------------------------------------------
' Récapitulatif des utilisateurs crées via la variable "liste"
' ------------------------------------------------------------------------
MsgBox "Les utilisateurs " & liste & " ont été créés et activés."
oexapp.quit
'Connecter le lecteur reseau + dossier de base (perso)
'Le mot de passe n'expire jamais a
'Tronquer le login a 20 caractères |
