|
| |
Suche Visual-Basic Code| anlegen von OU´s auf win2k-server im active directory | |  | | Autor: lady stony | | Datum: 14.06.02 10:46 |
| ich muss auf einem win2k-server OU´s anlegen, welche ca. 1200 klassen sind. darin werden dann jeweils noch 30 user angelegt, welche ein vordefiniertes passwort bekommen sollen.
da ich mich mit vb überhaupt nicht auskenne, hoffe ich dass mir jemand helfen kann. ich habe auch schon einen code bekommen, aber dieser ist nicht ausreichend für mein vorhaben.
kann mir jemand helfen? ;)
lady stony
lady stony'Rueckfragen bitte an folgende Adresse: d.roesler@arkonsoft.de
wscript.echo "Dieses Script erstellt eine Anzahl von OU und die von Ihnen gewünschte Anzahl von User pro OU", Chr(10), "(c) d.roesler@arkonsoft.de" , Chr(10), "Please click OK to continue."
anzahl2=inputbox("Geben Sie die Anzahl der anzulegenden OU ein")
anzahl=inputbox("Geben Sie die Anzahl der anzulegenden Nutzer in jede OU ein")
' Determine the LDAP path for your domain
Set Root = GetObject("LDAP://RootDSE")
DomainPath = Root.Get("DefaultNamingContext")
Set Domain = GetObject("LDAP://" & DomainPath)
'Create users in the Top Level OU
for j=1 to anzahl2
ouname1="OU="&chr(j+64)
ouname=chr(j+64)
Set ou1 = Domain.Create("organizationalUnit", ouname1)
ou1.Put "Description", ouname
ou1.SetInfo
for i=1 to anzahl
Name="CN="&ouname&i
samname= "SAM"&ouname&i
gname= "VOR"&ouname&i
sname= "Nach"&ouname&i
UPN= "UPN"&ouname&i
Set usr = ou1.Create("user", Name)
usr.Put "samAccountName", samname
usr.Put "givenName", gname
usr.Put "sn", sname
usr.Put "userPrincipalName", UPN
usr.Put "userAccountControl", "0020"
usr.SetInfo
usr.SetPassword ""
next
next
wscript.echo "Active Directory Structure Created", Chr(10), "(c) d.roesler@arkonsoft.de" , Chr(10), "Please click OK to finish." | |
 anlegen von OU´s auf win2k-server im active directory | 73 | lady stony | 14.06.02 10:46 |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
Sie sind aktuell nicht angemeldet.