Gruppen anlegen ADS - lokal/global

[Denied 10]

Hallo,

 

gibt es eine Möglichkeit Gruppen per VBS-Script zu erzeugen?

 

Habe eine Textdatei mit folgenden angaben:

 

(Globale Gruppe) (Lokale Gruppe) (Beschreibung)

Gruppe1g Gruppe1l Dies ist die Gruppe 1

Gruppe2g Gruppe2l Dies ist die Gruppe 2

 

Das Script soll sozusagen Spalte 1 auslesen und mit diesem Namen eine globale Gruppe erstellen inkl Beschreibung.

Dannach soll er Spalte 2 auslesen und mit diesem Namen eine Lokale gruppe inkl. Beschreibung erstellen.

 

Von Vorteil wäre wenn er nach dem erzeugen dieser 2 Gruppen gleich die Globale Gruppe (Gruppe1g) als Mitglied bei der Lokalen Gruppe(Gruppe2l) hinzufügt.

 

Vielen dank schonmal ...

 

Grüße

[phoenixcp 10]

gibt es eine Möglichkeit Gruppen per VBS-Script zu erzeugen?

Ja, gibt es.

 

Hast du denn schon einen Ansatz den man ausbauen kann oder darfs ein komplettes Skript sein?

[Denied 10]

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

[Sunny61 806]

Evtl. hilft dir dieses Script weiter: Modify Group Attributes