[VBS] VBScript + Active Directory : Quelques manipulations
Bonjour tout le monde.
Je viens ici en quête d'une précieuse aide quant à la production d'un script en VBScript afin de créer et positionner des utilisateurs Active Directory dans le bon OU.
Je viens d'une formation Réseau, et le script n'est pas ma grande passion, loin de là (et des fois "malheureusement" ...), mais pour les besoins de ma boite, j'ai le devoir de créer un tel script.
En clair, voici ma requête :
Il me faudrait un vbscript, ou des bouts de code vbscript afin de créer un utilisateur dans un Active Directory sours Win 2008 R2 et le place dans le bon OU.
Le script doit demander le Nom & Prénom de l'utilisateur à rentrer. En découlera son nom d'ouverture de session en "prénom.nom" ainsi que son mot de passe en "prénomnom". Son mot de passe n'expire jamais et doit être changé à la première ouverture de session.
L'appel du nom/prénom se fera par des inputbox je suppose.
Ensuite l’utilisateur devra être déplacé dans l'OU -> +domaine -> +clients.
Pouvez-vous m'apporte une aide afin de créer ce script ?
Je vous remercie d'avance !
Cordialement,
Valentin.
Petit souci sur VBS aussi
Bonjour à vous tous,
Je suis également entrain de de faire une intégration de users (500) dans AD.
J'ai fait mon script il fonctionne au 3/4. J'ai un .csv qui contient 4 colonne.
1=Nom
2=Prénom
3=Mot de passe
4= OU
J'ai fait en sorte dans mon vbs d’être dans l'OU parent, il arrive à me créer les utilisateurs mais ne les mets pas dans la bonne OU et ne prend pas le mot de passe. Pourrirez-vous m'aider svp???
Voici mon script et mon CSV.
SCRIPT:
Code:
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
| option explicit
dim LDAPConnectString
dim Connection, InputFileName, FSO, TextFile, Count, User, Line, Cols
dim SamAccountName, CN, FirstName, LastName, UserPrincipalName
on error resume next
Const SuffixeUPN = "@labo.local"
Const CSVSeparator = ";"
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
LDAPConnectString = "LDAP://ou=Utilisateurs,dc=labo,dc=local"
Set Connection = GetObject(LDAPConnectString)
InputFileName = "IDE-01-.csv"
Count = 0
set FSO = CreateObject("Scripting.FileSystemObject")
set textFile = FSO.OpenTextFile(InputFileName,1)
Do until textFile.AtEndOfStream
Line = textfile.ReadLine
Cols = Split(Line, CSVSeparator)
Count = Count + 1
LastName = Trim(cols(0))'Nom
FirstName = Trim(cols(1))'Prenom
Pass = Trim(cols(2)) 'Mot de passe
Ou = Trim(cols(3))
SamAccountName = Lcase(LastName & Left(FirstName, 1))
Set User = Connection.Create("User", "CN=" & LastName & " " & FirstName)
User.Put "displayName", LastName & " " & FirstName
User.Put "sAMAccountName", SamAccountName
User.Put "givenName", FirstName
User.Put "sn", LastName
User.Put "UserPrincipalName", SamAccountName & suffixeUPN
User.SetInfo
User.AccountDisabled = false
User.SetPassword (Pass)
User.Put "userAccountControl", ADS_UF_DONT_EXPIRE_PASSWD
Const UAC = 544
User.SetInfo
Loop
wscript.echo "Opération Terminée. " & Count & " utilisateurs importés."
textFile.close
set Connection = nothing
set FSO = nothing
set textFile = nothing |
CSV:
BEGU laurent 1234 Ide
Merci d'avance de prendre du temps pour me répondre.
