Denied

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

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

Vielen Dank, über das AD Snap it reichts mir..

Gruß

Hallo,

gibt es eine Möglichkeit das AD abzufragen ala

"zeig mir alle benutzer die seit X Tagen nichtmehr eingeloggt waren?"

Vielen Dank :)