hab jetzt was hinbekommen das er mir eine Globale und Lokale gruppe erstellt, fehlt nurnoch Beschreibung und die Mitgliedschaft.
'CreateGroupsFromList.vbs
Const OU = "ou=Test,dc=DcName,dc=DcEnd"
Const List = "D:\AddGroups\Gruppenliste.txt"
Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000
Const ADS_GROUP_TYPE_LOCAL_GROUP = &h4
Set objOU = GetObject("LDAP://" & OU)
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(List) Then
WScript.Echo "Datei " & List & " nicht gefunden!"
WScript.Quit 1
End If
arrGruppen = Split(fso.OpenTextFile(List, 1, False).ReadAll, vbCrLF)
For Each strGruppe In arrGruppen
WScript.Echo "Erstelle Gruppe: " & strGruppe
MakeGroup strGruppe
MakeGroupGlobal strGruppe
Next
WScript.Echo "Fertig."
Sub MakeGroup(strGrName)
strGrNameL = strGrName & "l"
Set objGroup = objOU.Create("Group", "cn=" & strGrNameL)
objGroup.Put "sAMAccountName", strGrNameL
objGroup.Put "groupType", ADS_GROUP_TYPE_LOCAL_GROUP Or _
ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo
End Sub
Sub MakeGroupGlobal(strGrName2)
strGrNameG = strGrName2 & "g"
Set objGroup = objOU.Create("Group", "cn=" & strGrNameG)
objGroup.Put "sAMAccountName", strGrNameG
objGroup.Put "groupType", ADS_GROUP_TYPE_GLOBAL_GROUP Or _
ADS_GROUP_TYPE_SECURITY_ENABLED
objGroup.SetInfo
End Sub