Jump to content

Domain Lokal Gruppen per Script anlegen


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo an alle, ich bräuchte mal wieder die Hilfe von einem Scriptguru.

 

Ich möchte gerne in einer bestimmten OU div.Domain Lokale Gruppen erstellen.

Wäre toll wenn ich dem Script den Namen über eine txt mitgeben könnte. Dann wäre es mir möglich mehr als eine Gruppen anlegen zu lassen oder das ich immer wieder das Script anpassen muss.

Ich danke euch im voraus und wünsche allen die diesen Beitrag lesen ein schönes Wochenende.;)

Link zu diesem Kommentar

Hi Woiza, das Script habe ich mir bereits geholt und entsprechend angepasst, aber irgendwie bleibt er bei dem objgrup.put hängen.

 

Const ADS_GROUP_TYPE_LOCAL_GROUP = &h4

Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000

 

Dim objFSO, objInputFile, strOU, objRootOU, objNewOU

 

'Hier anpassen

Const filePath = "C:\TEMP\Scripte\ou.txt"

Const strStartOU = "ou=Fileservice,dc=blg,dc=local"

'Hier nicht ;-)

Const forReading = 1

 

'File öffnen

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objInputFile = objFSO.OpenTextFile (filePath, ForReading)

 

'StartOU holen

Set objRootOU = GetObject("LDAP://" & strStartOU)

 

'Loop über alle Zeilen des File

Do Until objInputFile.AtEndOfStream

 

strOU = objInputFile.ReadLine

 

Set objNewOU = objGroup.Put("sAMAccountName", "strOU")

objGroup.Put "groupType", ADS_GROUP_TYPE_LOCAL_GROUP Or _

ADS_GROUP_TYPE_SECURITY_ENABLED

objGroup.SetInfo

 

Loop

 

objInputFile.Close

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...