création compte NT basic

**mathieu_vincent** · 19/03/2007, 17h49

Bonjour,

Dans le cadre de mon projet de stage, j'ai besoin de créer entre autre plusieurs comptes NT, d'où un script pour automatisé cela.

J'ai déjà fais une recherche de script et j'ai trouvé celui là :

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
98
99
100
 
Dim fs,a,b,fso,c,OS,d,e,f,g,h,r,sMsg,oFSO,oTS,FicPassword,Commandline,Commandline1,Commandline2,Commandline3,wshShell,RepPerso,RepProfil
dim strStudent,strNom,strPrenom,strHomeDir,strGroupes,strMDP,sHomePath,oFolder,strUAC,strProfilePath,strScriptPath,strHomeDrive
dim strEtude,strGroup,objContainer,objGroup,objStudent,strUPN,strSAM,sGroupList,iTemp,oGroup,sProfilPath,strHomeDirectory
r=""
dim MDP
MDP="fd21D2s1f"
while r=""
   r=inputbox("Entrez le nom du fichier des utilisateurs à créer (sans extension) : ")
wend
set wshShell = CreateObject("Wscript.Shell")
set e=wshShell
set f=wshShell
set g=wshShell
set h=wshShell
 
Set fs = CreateObject("Scripting.FileSystemObject")
Set b = fs.openTextFile(r&".log") 'Ouvre le fichier dans lequel tu as la liste de tes utilisateurs'
FicPassword = r & "_Password.txt" 'Tu donnes à FicPassword le nom du fichier où sera stocké les mots de passe'
set oFSO=CreateObject("Scripting.FileSystemObject")
set oTS=oFSO.CreateTextFile(FicPassword,True) 'Création d'un fichier où est stocké tous les mots de passe'
'strEtude = "ou=Eleve,dc=...................................."
strGroup = "Invités"
'set objContainer=GetObject("LDAP://" & strEtude)
'set objGroup = GetObject("LDAP://" & strGroup)
sHomePath="\c:\Utilisateurs$\"
sProfilPath="\c:\Profils$\"
i = 0
fin = False
While b.AtEndOfStream=false
  i = i + 1
  a=split(b.readline,";")
  'select case a(2)  'Si tu utilises des noms différents dans ton fichier texte par rapport à ceux qui sont dans l'Active Directory'
	'case "Directeur"
	'	a(2)="Glo Directeur"
	'case "Secrétaire"
'		a(2)="Glo Secrétaire"
'	case "........."
'		a(2)="Glo ..............."
'	case "........."
'		a(2)="Glo ..............."
'	case "........."
'		a(2)="Glo ..............."
'	case Else
'		a(2)="ERROR"
'  end select
  strStudent=a(0) & " " & a(1) 'Donne le nom complet de l'utilisateur'
  strNom=a(0)
  strPrenom=a(1)
  strGroupes=a(2)
  'strHomeDir=left(a(1),1)&a(0) 'Création du nom du répertoire personnel
  'strMDP=LCase(left(a(1),1)&left(a(0),1)&left(a(1),1)&left(a(0),1)&left(a(1),1)&left(a(0),1)) 'Création du mot de passe que tu peux changer ici c'est la première lettre du prénom et la première lettre du nom'
  strMDP=MDP
  strUPN="mon_domaine" 'LCase(strHomeDir)&"@.............................................................................." 'tu mets ton nom de domaine'
  'strSAM=LCase(strHomeDir)
  strUAC="512" 'Permet d'activer le compte'
  'strProfilePath=sProfilPath&strHomeDir 'Création du nom pour le répertoire du profil de l'utilisateur'
  'strScriptPath="logon.cmd" 'Script de commande WindowsNT qui fabrique le lecteur réseau'
  'strhomedrive="z" 'Création d'un lecteur logique'
  'strhomeDirectory=sHomePath&strHomeDir 'Nom du répertoire pour le lecteur logique'
  on error resume next
  set objStudent=objContainer.Create("User", "cn=" & strStudent) 'Création des propriétés du compte de l'utilisteur dans Active Directory'
  objStudent.Put "displayname",strStudent			
  objStudent.Put "givenName",strPrenom
  objStudent.Put "sn",strNom
  objStudent.Put "userPrincipalName",""
  objStudent.Put "sAMAccountName",""
  objStudent.Put "userAccountControl",""
  objStudent.Put "ProfilePath",""
  objStudent.Put "scriptPath",""
  objStudent.Put "homeDrive",""
  objStudent.Put "homeDirectory",""
  objStudent.SetInfo
  'set objStudent = GetObject("WinNT://" & objContainer & "/" & strStudent &",User")
  'objStudent.SetPassword strMDP
  'oTS.Write strStudent & ","&strMDP & vbCrLf
 
  'oFolder=fs.CreateFolder(sHomePath & strHomeDir)
  'oFolder=fs.CreateFolder(sProfilPath & strHomeDir)
  'RepPerso=sHomePath & strHomedir
  'RepProfil=sProfilpath & strHomeDir
 
  'CommandLine="cacls " & RepPerso & " /T /E /P " & strSAM &":C"  'Donne le droit modifier à l'utilisateur sur son répertoire perso'
  'e.Run CommandLine, 1, True
  'Commandline1="cacls " & RepProfil & " /T /E /P " & strSAM &":C" 'Donne le droit modifier à l'utilisateur sur le répertoire où est stocké son profil'
  'f.Run CommandLine1, 1, True
  'Commandline2="cacls " & RepPerso & " /T /E /P Administrateurs:F" 'Donne le droit Contrôle total au groupe Administrateur de ton domaine'
  'g.Run CommandLine2, 1, True
  'Commandline3="cacls " & RepPerso & " /T /E /P Glo .......:C" 'Donne les droits modifier à un autre groupe si celui-ci souhaite regarder ce que contient les répertoires personnels des utilisateurs'
  'h.Run CommandLine3, 1, True
 
  'set oGroup=objGroup.Create("Group","cn="&strGroupes) 'Ajoute l'utilisateur dans son groupe'
  'oGroup.Add objStudent.AdsPath
  'set oGroup=Nothing
 
  'objStudent.setInfo
  'set objStudent=Nothing
 
Wend
Wscript.Echo "Les mots de passe des " & i & " utilisateurs ont été écrit dans " & FicPassword 'Ceci te permet de voir le nombre d'utilisateurs que tu as créé et te confirme que la création est terminée'

J'ai déjà modifié le script en mettant les lignes de codes en commentaires. Mais étant passablement newbie en VBS, j'ai besoin de vos conseils

Lorsque j'execute ce script avec le fichier à lire, il n'y a pas d'erreur mais il ne me crée pas de compte utilisateur

.

J'aurai voulu savoir si quelqu'un avait une petite idée pour me dépanner.

Merci d'avance

**mathieu_vincent** · 22/03/2007, 10h52

En fait j'ai fini par résoudre mon problème;
Je mets le code au cas où cela pourrait aider qqn

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
 
Dim oContainer
Dim oUser
Set oContainer=GetObject("LDAP://cn="nom de la machine",cn="son emplacement sur le serveur",dc="son nom de domaine"")
'Create user        
Set oUser = oContainer.Create("User","CN=blob") 
'Assign values to user attributes        
oUser.Put "samAccountName","bobzo"        
oUser.Put "givenName","12321"        
oUser.Put "sn","bobzo 12321"        
oUser.Put "userPrincipalName","essai"        
oUser.SetInfo
'Clean upSet 
oUser = Nothing
Set oContainer = Nothing
WScript.Echo "Finished"
WScript.Quit

Voilish, bonne continuation

**Foxou** · 22/03/2007, 15h56

Bonjour,

je souhaiterais également créer un script qui me permette de créer dans un domaine Active Directory, un lot d'utilisateurs à partir d'un fichier texte (type csv par exemple). L'idéal serait que le script récupére les infos du fichier (OU de l'utilisateur, compte, mot de passe par défaut, et autres), pour la création.

Il semble que le premier script indiqué plus haut ressemble à cela..mais je n'y connais pas grand chose. Merci de vos précisions.

**mathieu_vincent** · 22/03/2007, 21h43

bonsoir Foxou

Effectivement le premier script correspond à tes attentes. C'est d'ailleurs la raison pour laquelle je l'avais remarqué, puisque je suis dans le même cas que toi!!
Mais pour des raisons de test, j'ai préféré récupérer un script plus petit et l'adapter à mon besoin, ce qui me permettait de mieux comprendre son fonctionnement.

Pour en revenir à ton problème, il te suffit de lire ton fichier .csv en ayant au préalable définit une "norme" pour séparer tes futures variables (Nom, Prénom, Ou, mot de passe).
genre :
boby / george / Workgroup / gb

ensuite tu parcours chaque ligne de ton fichier, et tu récupères chaque valeur entre les " / "; mais je ne me souviens plus de la fonction (tu la trouveras sur le forum ou dans la faq)
Puis une fois les informations de la ligne de ton fichier récupérées, tu créé l'utilisateur.

Voili

création compte NT basic

VBScript

Vue hybride

Discussions similaires

Partager

Partager