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