BenniSW

Das kann doch nicht wahr sein, ich habs, ich könnt ****en ... dieser Testuser hat keinen Eintrag im Feld Abteilung, also folgt da , auf , in der Textdatei ... ich hab da jetzt ein Leerzeichen eingefügt UND DIE ******** FUNKTIONIERT ... GNAAAH! Ich danke trotzdem, ohne den Thread wäre ich erst gar nicht so weit gekommen. Grüße, Benni

Hi, geiler Thread, hat mir sehr geholfen, aber im Moment bin ich kurz davor meinen PC physisch zu misshandeln. Ich habe ein Basisscript nur mit User, Passwort, Vorname, Nachname erstellt, funktioniert auch wunderbar. Dann habe ich das Script Stück für Stück erweitert, zwischendurch immer wieder getestet. Jetzt, ganz am Ende funktioniert es nicht mehr und auch wenn ich einen RollBack auf den letzten, definitiv funktionsfähigen Stand machen, bekomme ich eine Fehlermeldung. Frei nach Epi IV: "Helft mir MCSE-Wan Kenobi, ihr seid meine letzte Hoffnung!" :D Script: Dim fso, f, Zeile, Feld Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile ("test.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) Strasse = Feld(4) PLZ = Feld(5) Ort = Feld(6) Position = Feld(7) Abteilung = Feld(8) Telefon = Feld(9) Company = Feld(10) Mail = Feld(11) Fax = Feld(12) Mobil = Feld(13) Web = Feld(14) Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Strasse,PLZ,Ort,Position,Abteilung,Telefon,Company,Mail,Fax,Mobil,Web) Loop f.Close Wscript.Quit(0) Sub BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Strasse,PLZ,Ort,Position,Abteilung,Telefon,Company,Mail,Fax,Mobil,Web) <- Das Leerzeichen im Fax macht das Forum hier. Dim ouo, b 'MsgBox(Benutzer) 'exit sub Set ouo = GetObject("LDAP://OU=yyy Logistik,DC=xxx,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", 66082 b.Put "userPrincipalName", Benutzer & "@xxx.local" b.Put "streetAddress", Strasse b.Put "postalCode", PLZ b.Put "l", Ort b.Put "title", Position b.Put "department", Abteilung b.Put "telephoneNumber", Telefon b.Put "company", Company b.Put "mail", Mail b.Put "facsimileTelephoneNumber", Fax b.Put "mobile", Mobil b.Put "wwwHomePage", Web b.Put "pwdLastSet", 0 b.SetInfo b.SetPassword Passwort b.AccountDisabled = False b.SetInfo WScript.Sleep(1000) End Sub Zu übergebende Zeile aus dem Textfile: h_t*******,H****,T*******,start123,A* E****** 1,*****,R*******,Niederlassungsleiter R*******,,+49 (****) *** ***,S******** L******* GmbH,h****.t*******@**********.de,+49 (****) **** ***, +49(1761) **** ***,http://www.*********.de Fehlermeldung: Zeile 59 Die Attributsyntax, die dem Verzeichnisdienst übergeben wurde, ist ungültig. Ich hoffe einer der Obercracks überfliegt das und sieht sofort den Fehler. Gruss, Benni