Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Per VBS Benutzer in AD einfügen

Mitglied: ColdZero

ColdZero (Level 1) - Jetzt verbinden

31.05.2010, aktualisiert 18.10.2012, 2896 Aufrufe, 5 Kommentare

Anfänger in sachen VBS!

Moin Moin,

den Unten stehenden Quelltext habe ich bereits bekommen gehabt und soll diesen nun wie folgt erweitern.

1. das aus einer CSV Datei die Benutzer in der AD angelegt werden.
2. Aus einer MySQL Datenbank.
Hierbei soll sichergestellt werden:
- das benutzer nicht Doppelt angelegt werden
- wenn ein Benutzer in der AD steht aber nicht in der DB das dieser nicht gelöscht wird
- OUs angelegt werden wenn diese noch nicht existieren.

Was diese beiden Punkte angeht komme ich nicht weiter - habe bei einer bekannten Suchmaschine auch schon geforscht und nichts gefunden. Denke hier gibt es einige die mir weiterhelfen könnten.

Hintergrund der ganzen geschichte ist das mein Cheffe beide Varianten haben will da er noch nicht weiß wie er es handhaben will.
Global über eine MySQL oder Lokal für das wir Admins das direkt einfach Administrieren und diese CSV datei bei uns aufm Server rumliegt.

Kommentierung des Quelltext (ADDUSER.BAT):
01.
@echo off // Systemnachrichten nicht angezeigt 
02.
SET /P Benutzername=Benutzername: // Variable “Benutzer“ deklariert 
03.
SET /P Vorname=Vorname:		 // Variable “Vorname“ deklariert 
04.
SET /P Nachname=Nachname		 // Variable “Nachname“ deklariert 
05.
echo %benutzername%,%vorname%,%nachname% > adduser.txt  // Die Eingaben werden in die Datei adduser.txt geschrieben
ADDUSER.VBS // Ausführung des Scripts
Kommentierung des Quelltext (ADDUSER.VBS):
01.
Set fso = CreateObject("Scripting.FileSystemObject") // Objekt wird erstellt um eine Textdatei zu öffnen 
02.
Set f = fso.OpenTextFile ("adduser.txt",1,0) // Textdatei wird geöffnet 
03.
Zeile = f.readLine // Liest Zeile für Zeile aus 
04.
Feld = split(Zeile,",") // Felder mit Komma getrennt 
05.
Benutzer = Feld(0) // Eingabefeld Loginname 
06.
Vorname = Feld(1) // Eingabefeld Vorname 
07.
Nachname = Feld(2) // Eingabefeld Nachname 
08.
f.Close // Datei wird geschlossen 
09.
Set ouo = GetObject("LDAP://CN=Users,DC=gruppe1,DC=local") // Öffnet Gruppe Users in der Domäne 
10.
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname) // Legt den User an 
11.
b.Put "sAMAccountName", Benutzer // Schreibt Benutzernamen ins AD 
12.
b.Put "displayName", Vorname & " " & Nachname // Schreibt den Anzeigenamen ins AD 
13.
b.Put "givenName", Vorname // Schreibt den Vorname ins AD 
14.
b.Put "sn", Nachname // Schreibt den Nachnamen ins AD 
15.
b.Put "userAccountControl", 66082 // PW läuft nicht ab 
16.
b.Put "userPrincipalName", Benutzer & "@gruppe1.local" // Anmeldename für Domäne 
17.
b.Put "pwdLastSet",0 // Benutzer muss PW bei Erstanmeldung selbst wählen 
18.
b.SetInfo // speichert die Informationen ab  
19.
b.AccountDisabled = False // Account des Benutzer ist aktiv 
20.
b.SetInfo // speichert die Informationen ab 
21.
Wm{Beispiel eines Zugriffs auf das AD.odt} 
Danke für Eure hilfe.

Gruß Zero


[Edit Biber] Die beide Copy&paste-Schnipsel in Codetags gesetzt, weil jeder Kommentarmarker (Doppelslash) zu einer Textformatierungsanweisung Kursivtext ein/aus geführt hat. [/Edit]
Mitglied: Snowman25
31.05.2010 um 11:40 Uhr
Gibt bereits zig Themen in diesem Forum mit genau dieser Problematik. Einfach mal die Forensuche bemühen!
Bitte warten ..
Mitglied: ColdZero
31.05.2010 um 11:45 Uhr
Moin,

habe ich aber nir das gefunden was ICH suche geschweigeden mir wurde nie angezeigt was ich brauche - kann auch sein das ich falsche suchbegriffe genutzt habe. Aber mehr als MySQL AD VBS was die schlagwörter sind - da spruckt er mir auch nicht genug aus.

Wenn du das SO gut weißt - kannst mir ja ein paar Links zukommen lassen, anstatt hier unfreundlich rumzumotzen ;)

Grüzdi
Bitte warten ..
Mitglied: Snowman25
31.05.2010 um 12:17 Uhr
Moin ColdZero,

Codeschnipsel bitte immer mit <co‍de> und </co‍de> umranden
Als erstes würe ich dir empfehlen, alle Eingabeformen auf das gleiche Zwischenergebnis (einheitliches Format) zu bringen (adduser.txt).
die adduser.txt der manuellen Eingabe per Batch ist ja schon CSV-ähnlich. Je nach Formatierung der CSV kannst du die Einträge direkt übernehmen.
Ansonsten:
CSV-Dateien lassen sich dank immer gleichen Formats prima über eine FOR-Schleife parsen. MySQL-Statements ließen sich über ein entsprechendes VBS richtig formatieren.
Für dein problem mit existenten/ nicht existenten OUs: Prüfe einfach kurz, ob das Object, auf welches du zugreiffen möchtest auch vorhanden ist. Wenn nicht: -> erstellen!

Gruß
Snow
Bitte warten ..
Mitglied: Edi.Pfisterer
31.05.2010, aktualisiert 18.10.2012
Hallo!
Schau mal hier
Kollege Kolouschki freut sich sicher, wenn er Dir helfen kann!!!

gutes gelingen
lg
Edi
Bitte warten ..
Mitglied: ColdZero
01.06.2010 um 08:38 Uhr
Moin Moin,

wunderbar sieht sehr gut aus! Werde mal ein wenig rumschnipseln und hoffen das es geht.

Gruß Zero
Bitte warten ..
Ähnliche Inhalte
Windows Userverwaltung

Windows Benutzer einer AD kopieren und auf einem anderen Server als lokale Benutzer einfügen

Frage von M.MarzWindows Userverwaltung2 Kommentare

Hallo zusammen, ich möchte alle Nutzer meiner Ad auf einem anderen Server als Lokale Benutzer integrieren. Leider sind das ...

Batch & Shell

Computerbeschreibung im AD per Batch einfügen

gelöst Frage von Fighter-01Batch & Shell3 Kommentare

Hallo an die Experten. Ich versuche, per Batch die Beschreibung von Computerkonten im AD zu ergänzen. Das Script ist ...

DNS

Webseiten Subdomain im AD DNS einfügen

Frage von Mr.FlauschiDNS13 Kommentare

Wir sind gerade dabei, ein Active Directory für unsere Firma aufzubauen. Unsere Domäne ist firma.de Um auf unsere Webseite ...

Windows Server

SBS2011 Benutzer nicht im AD SBSUsers

Frage von helmuthelmut2000Windows Server1 Kommentar

Hallo, Ich habe folgendes Problem, An einem SBS2011 wurden ca. 15 Benutzer nicht über die SBS-Konsole angelegt sondern über ...

Neue Wissensbeiträge
Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 14 StundenSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 20 StundenWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 1 TagiOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 2 TagenWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Heiß diskutierte Inhalte
Batch & Shell
Powershell: Im AD nach Rechnern mit bestimmten IP-Adressen suchen
gelöst Frage von Raven42Batch & Shell36 Kommentare

Hallo zusammen, ich suche nach einer Möglichkeit nach Computern im AD zu suchen , deren IP-Adresse mit 10.11.12. beginnt. ...

C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++34 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

LAN, WAN, Wireless
Watchguard T15 VPN Einrichtung
gelöst Frage von thomasjayLAN, WAN, Wireless25 Kommentare

Hallo zusammen, wir möchten gerne über unsere Watchguard T15 einen VPN-Tunnel (Mobile VPN with IPSec) einrichten! Als Client nutzen ...

Windows Server
Alten DC entfernen
Frage von smartinoWindows Server24 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...