Jump to content

Denied

Members
  • Gesamte Inhalte

    4
  • Registriert seit

  • Letzter Besuch

Alle erstellten Inhalte von Denied

  1. 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
  2. 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
  3. Vielen Dank, über das AD Snap it reichts mir.. Gruß
  4. Hallo, gibt es eine Möglichkeit das AD abzufragen ala "zeig mir alle benutzer die seit X Tagen nichtmehr eingeloggt waren?" Vielen Dank :)
×
×
  • Neu erstellen...