Hi Leute,
erstmal vielen Dank für geniale Script
so sieht meine aus:
Dim fso, f, Zeile, Feld
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile ("kundendaten.txt",1,0)
Do while not f.AtEndOfLine
Zeile = f.readLine
Feld = split(Zeile,",")
Vorname = Feld(0)
Nachname = Feld(1)
Titel = Feld(2)
Anmeldename= Feld(3)
OU= Feld(4)
Passwort =Feld(5)
Telefon= Feld(6)
Call BenuntzerAnlegen(Vorname,Nachname,Titel,Anmeldename,OU,Passwort,Telefon)
Loop
f.Close
Wscript.Quit(0)
Sub BenuntzerAnlegen(Vorname,Nachname,Titel,Anmeldename,OU,Passwort,Telefon)
Dim ouo, b
Set ouo = GetObject("LDAP://OU=Marketing,DC=nam,DC=nguyen,Dc=com")
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Vorname
b.Put "displayName", Vorname & " " & Nachname
b.Put "givenName", Vorname
b.Put "sn", Nachname
b.Put "userAccountControl", 66082
b.Put "userPrincipalName", Benutzer & "@nam.nguyen.com"
b.Put "profilePath", "\\W2008TEST\daten\profile\" & Benutzer
b.Put "homeDirectory", "\\W2008TEST\daten\home\" & Benutzer
b.Put "homeDrive", "C:""
b.SetPassword TestPW!
b.AccountDisabled = False
b.SetInfo
WScript.Sleep(3)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)
End Sub
allerdings krieg ich diese Fehlermeldung
Zeile 35 / Zeichen 21 / Anweisungsende erwartet
Code 800A0401
Ich bin mit meinem Latein am Ende
Wär super ,wenn mir da jemanden helfen kann
LG
Nam