Jump to content

OU 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, so damit hätte ich die Regel 7 eingehalten :) Danke für den Hinweis.

 

Nochmal zu meiner Frage:

Ich bräuchte ein Script mit dem man im AD in einer bestimmten OU weitere OU´s anlegen kann, die sich in einer txt befinden.

Die txt soll ganz einfach aussehen

 

Beispiel txt:

Allgemein

Betrieb

 

Kann mir da jemand helfen ?

Danke euch im Voraus.

Link zu diesem Kommentar

Bitteschön...

 

Dim objFSO, objInputFile, strOU, objRootOU, objNewOU

'Hier anpassen
Const filePath = "c:\ou.txt"
Const strStartOU = "ou=test1,dc=test,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

'strOU anlegen
Set objNewOU = objRootOU.create("organizationalUnit", "ou=" & strOU)
objNewOU.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...