Kategorien
Scripte

Active Directory create Groups

CSS Programming Image

Ziel:

Anlage von Active Directory Gruppen für die Datei- und Ordnerberechtigungen.

Angelegt wird eine domainlokale und eine globale Gruppe. Beide werden verschachtelt. (globale Gruppe als Mitglied der domainlokalen Gruppe).

Angepasst werden muss je nach Bedarf Ablageort (OU)

'Lokale und Globale Gruppe anlegen, verschachteln und Beschreibung setzen
Const ADS_GROUP_TYPE_GLOBAL_GROUP = 2
Const ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP = 4
Const ADS_GROUP_TYPE_UNIVERSAL_GROUP = 8
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000

Name=InputBox("Gruppennamen?","Userinput")

G_Group = Name + "GLOBAL"
L_Group = Name + "LOCAL"

' GetObject
Set ou = GetObject("LDAP://rootdse")

Set gruppe = ou.Create("group", "cn=" + G_Group)
gruppe.sAMAccountName = G_Group
gruppe.groupType = ADS_GROUP_TYPE_GLOBAL_GROUP_
 + ADS_GROUP_TYPE_SECURITY_ENABLED gruppe.SetInfo Set gruppe_G = ou.GetObject("group", "cn=" + G_Group) ' GetObject Set ou = GetObject("LDAP://rootdse") Set gruppe = ou.Create("group", "cn=" + L_Group) gruppe.sAMAccountName = L_Group gruppe.groupType = ADS_GROUP_TYPE_DOMAIN_LOCAL_GROUP_
 + ADS_GROUP_TYPE_SECURITY_ENABLED gruppe.SetInfo Set gruppe_L = ou.GetObject("group", "cn=" + L_Group) gruppe_L.Add gruppe_G.ADsPath MsgBox "Gruppen angelegt sowie globale in lokale Gruppe aufgenommen."

Die Ausführung bestimmter Tools erfordert spezielle Rechte (administrativer Art). Ich übernehme keinerlei Gewährleistung für evtl. auftretende Schäden. Sie benutzen das Tool auf eigene Gefahr. Bitte sichern Sie zuvor Ihre Daten!

Ich übernehme keine Gewähr!

Bei Fragen benutzt das Kontaktformular.