Hallo Leute,  
  
ich bekomme es nicht wirklich hin. 
  
mein Script, newuser.vbs 
  
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) 
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://CN=users,DC=webserver,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 "userPrincipalName", Benutzer & "@webserver.local" 
b.Put "profilePath", "\\w2003stand\profile$\" & Benutzer 
b.Put "homeDirectory", "\\w2003stand\home$\" & Benutzer 
b.Put "homeDrive", "U:" 
b.SetInfo 
b.SetPassword Passwort 
b.AccountDisabled = False 
b.SetInfo 
WScript.Sleep(1000) 
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1) 
End Sub 
  
Ich bekomme die Fehlermeldung  
  
Zeile 28,  
Objekt schon vorhanden 
  
Was mache ich falsch ??