Bonjour,

Je suis en train de realiser un Script VBS pour ajouter des utilisateurs dans mon active directory a l'aide d'un fichier Excel. Jusqu'a la tout fonctionne parfaitement mais j'aimerais pouvoir ajouter a ce script une ligne pour que dans le profil de l'utilisateur je puisse lui connecter directement son lecteur perso avec une lettre. Est-ce que quelqu'un connais les lignes qu'ils faut mettre pour pouvoir faire cela ?

Je vous donne mon programme :

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
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
Merci pour votre aide