VBS / Création de groupe de sécurity local depuis un fichier.txt

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:
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