Benutze dieses Script:
Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("user.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")
Benutzer = Feld(0)
Vorname = Feld(1)
Nachname = Feld(2)
Passwort = Feld(3)
Wscript.echo Feld(0)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Loop
f.Close
Wscript.Quit(0)
Sub BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Dim ouo, b
Set ouo = GetObject("LDAP://OU=Benutzer,DC=lanlogistic,DC=local")
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", "Benutzer"
b.Put "displayName", Vorname & " " & Nachname
b.Put "givenName", Vorname
b.Put "sn", Nachname
b.Put "userAccountControl", 197122
b.Put "userPrincipalName", Benutzer & "@lanlogistic.local"
b.Put "profilePath", "\\Server\daten\profile\" & Benutzer
b.Put "homeDirectory", "\\Server\daten\home\" & Benutzer
b.Put "homeDrive", "H:"
b.SetInfo
b.SetPassword Passwort
b.AccountDisabled = False
b.SetInfo
WScript.Sleep(1000)
REM ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)
End Sub
TEXTDatei:
Benutzeranmeldename1,Vorname1,Nachname1,Gruppe8
Benutzeranmeldename2,Vorname1,Nachname1,Gruppe8
Das Script funktioniert auch nur der legt mir immer nur einen USer an und springt dann mit der Fehlermeldung Objects already exists. Obwohl die einen anderen Namen haben!!
Hat jemand eine IDee