Discussion :

[Mothership]

Bonjour,

J'essaie désespérément de créer une liste de groupes dans notre active directory depuis un fichier texte.
Pourquoi ?
Nos developpeurs développent une application et définissent les droits pour des groupes. Une fois la liste obtenu nous avons en charge de créer les groupes de l'AD. Comme l'erreur est humaine, j'aimerai depuis un VBS créer l'ensemble des groupes en 2 clics ... héhé.

Aujourd'hui, je suis capable de créer mon/mes groupes par un script mais cela m'oblige à multiplier les modifications dans le script et donc les possibles erreurs humaines.
Ce que je ne sais pas faire c'est ligne par ligne le fichier et à chaque ligne effectuer l'action suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
objGroup.Put "sAMAccountName", "GroupeName"
objGroup.Put "groupType", ADS_GROUP_TYPE_LOCAL_GROUP Or _
    ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo

J'imagine dans un loop, avec un do until jusuq'à la fin du fichier mais n'étant pas du tout proche de l'écriture des scripts je suis perdu.

Ô secours Obiwan

[Mothership]

Je me suis fait largement aider sur ce script, voici le résultat

Pour ceux que ça intéresse, je le place et ferme le post

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
Const ADS_GROUP_TYPE_LOCAL_GROUP = &h4
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
projet = inputbox("Projet :")
OUprojet = "OU=" & projet 
OUexist = "False"
 
Set objOus = GetObject("LDAP://ou=Symfony,dc=test,dc=lan1")		
objOus.filter = array("organizationalUnit")
 
booExists = "FALSE"
 
Const ForReading = 1, ForWriting = 2 
Dim oFso, f
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("c:\tmp\fichier1.txt", ForReading)
while Not f.AtEndOfStream 
	GroupName = f.ReadLine 
	CnGroupName = "CN=" & GroupName
	For Each objOu In objOus
		IF OUprojet = objOu.Name then
			OUexist = "True"
		end if	 
		Set objGroupExiste = GetObject("LDAP://" &  objOu.Name & ",ou=Symfony,dc=test,dc=lan1")
		objGroupExiste.filter = array("group")
		For Each objgroup In objGroupExiste
 			If booExists = "FALSE" Then
        			strGroupName = objgroup.Name 
				If strGroupName = CnGroupName Then
                			booExists = "TRUE"
					wscript.echo "Le groupe " & GroupName & " existe déjà"
 	 			End If
			End if
		Next
	next
 
	if OUexist = "False" Then
		Set objOu= GetObject("LDAP://ou=Symfony,dc=test,dc=lan1")
		Set objOuCreate = objOu.Create("organizationalUnit", OUprojet)	
		objOuCreate.SetInfo
	end if
	Set obj = GetObject("LDAP://ou=" & projet &",ou=Symfony,dc=test,dc=lan1")
	if booExists = "FALSE" Then		
		Set objGroup = obj.Create("Group", CnGroupName )
		objGroup.Put "sAMAccountName", 	GroupName
		objGroup.Put "groupType", ADS_GROUP_TYPE_LOCAL_GROUP Or _
   		ADS_GROUP_TYPE_SECURITY_ENABLED
		wscript.echo "Groupe créé " &  	GroupName
		objGroup.SetInfo
	end if
	booExists = "FALSE" 
Wend
f.Close