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