OU per Script anlegen

[Kristian007 10]

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.

[woiza 10]

Hi,

 

steht pro Zeile immer eine OU?

[Kristian007 10]

Ja, in jeder Zeile der txt steht der Name der OU, die anlegen möchte.

[Daim 12]

Servus,

 

hier findest Du bereits einen Ansatz zum Script.

Versuche es mal damit:

Microsoft Corporation

[Kristian007 10]

Hallo Daim, danke für die Info.

 

Ich kenne die Sript Seite und habe mich damit auch schon befasst. Brauche nur aktuell das Script dringend und komme einfach nicht weiter, wenn ich das ganze aus einer txt auslesen möchte.

[woiza 10]

Hi,

 

ich denke, heute Mittag kann ich dir das kurz basteln. Ist nicht weiter kompliziert, eigentlich.

 

Gruß

 

woiza

[woiza 10]

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

[lefg 276]

Hallo,

 

:create OU for Group
dsadd OU "OU=%Group%,%domain%"
rem pause

[Kristian007 10]

Hallo Woiza, vielen Dank für deine Mühe.

 

Habe aber noch eine Frage.

 

Wenn der Name einer OU mit Leerzeichen versehen ist, wie kann ich das ganze dann in der Const strStartOU angeben ?

 

Ich weiß ****, aber ist nicht auf meinem Mist gewachsen :)

Danke Dir.

[woiza 10]

Hi, ganz einfach, die Zeile müsste dann so aussehen:

 

Const strStartOU = """ & "ou=test1,dc=test,dc=local" & """

[Kristian007 10]

Hallo Woiza, danke nochmal für deine Hilfe.

 

Habe jetzt noch ein Problem. Wenn ich das Script ausführe, dann bekomme ich die Fehlermeldung : Expected end of statement

 

In folgender Reihe:

Const strStartOU = """& " ou=1100,ou=1000,ou=FSrv,ou=Master Service ,dc=ibm,dc=local"& """

 

Danke

[grizzly999 11]

Das erste Script funktioniert einwandfrei, auch bei Leerzeichen im vorhandenen OU-Namen. Dazu muss der DN der OU nur in Anführungszeichen gesetzt werden, was in dem Script ja der Fall ist.

Anm.: Ich habe das Script bei mir getestet, mit DEINER OU Struktur, un d es geht ;)

 

 

grizzly999

[woiza 10]

Hi,

 

habs jetzt auch noch mal mit Leerzeichen versucht und kein Problem bekommen. Die doppelten Leerzeichen, die ich dir geraten habe, brauchst du in dem Fall nicht. Es gibt aber andere, in denen ADSI bei Leerzeichen "ab****t".

 

 

Gruß

 

woiza