Per VBS Benutzer in AD einfügen

@echo off // Systemnachrichten nicht angezeigt
SET /P Benutzername=Benutzername: // Variable “Benutzer“ deklariert
SET /P Vorname=Vorname:		 // Variable “Vorname“ deklariert
SET /P Nachname=Nachname		 // Variable “Nachname“ deklariert
echo %benutzername%,%vorname%,%nachname% > adduser.txt  // Die Eingaben werden in die Datei adduser.txt geschrieben

Set fso = CreateObject("Scripting.FileSystemObject") // Objekt wird erstellt um eine Textdatei zu öffnen  
Set f = fso.OpenTextFile ("adduser.txt",1,0) // Textdatei wird geöffnet  
Zeile = f.readLine // Liest Zeile für Zeile aus
Feld = split(Zeile,",") // Felder mit Komma getrennt  
Benutzer = Feld(0) // Eingabefeld Loginname
Vorname = Feld(1) // Eingabefeld Vorname
Nachname = Feld(2) // Eingabefeld Nachname
f.Close // Datei wird geschlossen
Set ouo = GetObject("LDAP://CN=Users,DC=gruppe1,DC=local") // Öffnet Gruppe Users in der Domäne  
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname) // Legt den User an  
b.Put "sAMAccountName", Benutzer // Schreibt Benutzernamen ins AD  
b.Put "displayName", Vorname & " " & Nachname // Schreibt den Anzeigenamen ins AD  
b.Put "givenName", Vorname // Schreibt den Vorname ins AD  
b.Put "sn", Nachname // Schreibt den Nachnamen ins AD  
b.Put "userAccountControl", 66082 // PW läuft nicht ab  
b.Put "userPrincipalName", Benutzer & "@gruppe1.local" // Anmeldename für Domäne  
b.Put "pwdLastSet",0 // Benutzer muss PW bei Erstanmeldung selbst wählen  
b.SetInfo // speichert die Informationen ab 
b.AccountDisabled = False // Account des Benutzer ist aktiv
b.SetInfo // speichert die Informationen ab
Wm{Beispiel eines Zugriffs auf das AD.odt}