Discussion :

[passager123]

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

[ludojojo]

Je ne suis pas sur d'avoir bien compris, tu veux connecté ton lecteur réseau à partir de ton script ou tu veux récupérer le lecteur réseau qui est connecté sur le compte utilisateur? Le but c'est de remplir des données dans l'AD ou de créer un service (connection du lecteur)?