4
per VB-Script pruefen ob eine OU vorhanden ist
Hallo,
habe eine Frage bezüglich Scripting im AD.
Folgendes wollte ich ermöglichen:
Testumgebung:
Ich möchte eine bestimmte Anzahl an User in einer OU erstellen.
Das Script funktioniert auch in soweit, in folgenden Parametern:
input Anzahl User
input OUName
- Domänenname egal
- wenn OU nicht vorhanden ist, wird diese erstellt
- Anzahl der User wird in dieser OU angelegt
Soweit so gut.
Mein Problem besteht nun darin, dass, wenn die OU schon vorhanden ist,
bekomme ich eine Fehlermeldung: Object existiert.
Wenn ich den Fehler übergehe "On Error resume next", erstellt das script
nur neue User, wenn die Anzahl der neu anzulegenden User, die vorhandenen
übersteigt.
Hört sich doof an: Hier ein Beispiel:
Erster Scriptlauf: lege 10 User in OU Test an -> Erfolgreich
Zweiter Ablauf : lege 11 User in OU Test an -> 1 neuer User wird angelegt,
wenn On Error resume next
ansonsten wird mit Fehler abgebrochen.
Dritter Ablauf: lege 20 User in OU Test an -> 9 neue User, usw...
Hat jemand eine Idee wie ich das vorher abfragen kann?
Mit
- if not existsObject hatte ich keinen Erfolg, bzw. hab es nicht hinbekommen.
Hab irgendtwo nicht den Durchblick :D
Hier nochmal das komplette Script im Überblick:
Danke schonmal im Voraus
Heiko
habe eine Frage bezüglich Scripting im AD.
Folgendes wollte ich ermöglichen:
Testumgebung:
Ich möchte eine bestimmte Anzahl an User in einer OU erstellen.
Das Script funktioniert auch in soweit, in folgenden Parametern:
input Anzahl User
input OUName
- Domänenname egal
("LDAP://RootDSE") - wenn OU nicht vorhanden ist, wird diese erstellt
CREATE("organizationalUnit"; "ou=" & OUName) - Anzahl der User wird in dieser OU angelegt
for i = 1 to Anzahl
CREATE("user", "CN=" & Uservar & ", OU=" & OUName)
Put "sAMAccountName", "Dummy" & i
nextMein Problem besteht nun darin, dass, wenn die OU schon vorhanden ist,
bekomme ich eine Fehlermeldung: Object existiert.
Wenn ich den Fehler übergehe "On Error resume next", erstellt das script
nur neue User, wenn die Anzahl der neu anzulegenden User, die vorhandenen
übersteigt.
Hört sich doof an: Hier ein Beispiel:
Erster Scriptlauf: lege 10 User in OU Test an -> Erfolgreich
Zweiter Ablauf : lege 11 User in OU Test an -> 1 neuer User wird angelegt,
wenn On Error resume next
ansonsten wird mit Fehler abgebrochen.
Dritter Ablauf: lege 20 User in OU Test an -> 9 neue User, usw...
Hat jemand eine Idee wie ich das vorher abfragen kann?
Mit
- if not existsObject hatte ich keinen Erfolg, bzw. hab es nicht hinbekommen.
Hab irgendtwo nicht den Durchblick :D
Hier nochmal das komplette Script im Überblick:
On Error Resume Next
dim rootDSE
set rootDSE = GetObject("LDAP://RootDSE")
domainname=rootDSE.Get("defaultnamingcontext")
set domain = GetObject("LDAP://" & domainname)
randomize
Zufallszahl = Int(1000 * rnd + 1)
Anzahl = inputBox("Wie viele User sollen angelegt werden?")
ZielOU = inputBox("In welcher OU sollen die User angelegt werden?")
Set objOU = domain.Create("organizationalUnit", "ou=" & ZielOU)
objOU.SetInfo
For i = 1 To Anzahl
MUsername = "Dummy" & Zufallszahl & "-" & i
Set objLeaf = domain.Create("user", "CN=" & MUsername & ", OU=" & ZielOU)
objLeaf.Put "sAMAccountName", "Dummy" & i
objLeaf.SetInfo
Next
WScript.Echo Anzahl & " Benutzer in " & ZielOU & " erstellt." Danke schonmal im Voraus
Heiko
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 89655
Url: https://administrator.de/contentid/89655
Printed on: April 28, 2024 at 08:04 o'clock
4 Comments
Latest comment
Hallo Firepower!
Lösung über Error-Handling: How to Create an OU (Organizational Unit) with VBScript
Ansonsten als Grundlage: Search for all the OUs with a Specific Word in Their Names
Grüße
bastla
Lösung über Error-Handling: How to Create an OU (Organizational Unit) with VBScript
Ansonsten als Grundlage: Search for all the OUs with a Specific Word in Their Names
Grüße
bastla
Hallo,
vielen Dank. Das hilft mir schon mal weiter.
Aber ein Problem bleibt. Es werden trotzdem nur neue User erstellt,
wenn die Anzahl der schon vorhandenen User darunter liegt.
Nochmal zum veranschaulichen:
10 User erstellt -> Erfolgreich
Dann will ich 5 neue User anlegen, diese werden aber nicht angelegt.
Lege ich stattdessen 15 neue User an, werden 5 neue User angelegt.
Die Usernamen werden alle mit einer Zufallszahl zwischen 1 und 1000 erstellt,
also doppelte User kann ich ausschliessen.
Noch jemand dazu ne Idee ??
Grüße
Heiko
vielen Dank. Das hilft mir schon mal weiter.
Aber ein Problem bleibt. Es werden trotzdem nur neue User erstellt,
wenn die Anzahl der schon vorhandenen User darunter liegt.
Nochmal zum veranschaulichen:
10 User erstellt -> Erfolgreich
Dann will ich 5 neue User anlegen, diese werden aber nicht angelegt.
Lege ich stattdessen 15 neue User an, werden 5 neue User angelegt.
Die Usernamen werden alle mit einer Zufallszahl zwischen 1 und 1000 erstellt,
also doppelte User kann ich ausschliessen.
Noch jemand dazu ne Idee ??
Grüße
Heiko
Hallo nochmal,
ich glaub das war heute zu lange.
Kaum macht man das richtig, gehts auch !! :D:D
Danke für die schnelle Hilfe
Grüße
Heiko
ich glaub das war heute zu lange.
Kaum macht man das richtig, gehts auch !! :D:D
Danke für die schnelle Hilfe
Grüße
Heiko
Hallo,
nach einer kurzen Nacht, hier das komplette Script.
Zwar nicht auf die feine Art gelöst, aber so dass es nun so funktioniert wie ich es haben wollte.
Die OU wird immer auf dem Rootlevel der AD erstellt, dabei ist es egal wie die Domäne heißt.
Mein Fehler war, dass bei der Anlage der sAMAccountnamen,
die Zufallszahl nicht mit geschrieben wurde, und daher wurden nur User angelegt
die nicht vorhanden waren.
Aber so geht es erstmal.
Falls da noch jemand Verbesserungen machen will, kann er mir gerne Bescheid sagen.
Grüße
Heiko
nach einer kurzen Nacht, hier das komplette Script.
Zwar nicht auf die feine Art gelöst, aber so dass es nun so funktioniert wie ich es haben wollte.
Die OU wird immer auf dem Rootlevel der AD erstellt, dabei ist es egal wie die Domäne heißt.
Mein Fehler war, dass bei der Anlage der sAMAccountnamen,
die Zufallszahl nicht mit geschrieben wurde, und daher wurden nur User angelegt
die nicht vorhanden waren.
Aber so geht es erstmal.
On Error Resume Next
dim rootDSE
set rootDSE = GetObject("LDAP://RootDSE")
domainname=rootDSE.Get("defaultnamingcontext")
set domain = GetObject("LDAP://" & domainname)
Anzahl = inputBox("Wie viele User sollen angelegt werden?")
UName = inputBox("Wie sollen die User heißen?")
ZielOU = inputBox("In welcher OU sollen die User angelegt werden?")
Set objOU = domain.Create("organizationalUnit", "ou=" & ZielOU)
objOU.SetInfo
randomize
Zufallszahl = Int(1000 * rnd + 1)
For i = 1 To Anzahl
MUsername = UName & Zufallszahl & "-" & i
Set objLeaf = domain.Create("user", "CN=" & MUsername & ", OU=" & ZielOU)
objLeaf.Put "sAMAccountName", MUsername & Zufallszahl & "-" & i
objLeaf.SetInfo
Next
WScript.Echo Anzahl & " Benutzer in " & ZielOU & " erstellt." Falls da noch jemand Verbesserungen machen will, kann er mir gerne Bescheid sagen.
Grüße
Heiko
