Hallo zusammen.
Kann mir da jemand helfen? Komme nicht weiter und müsste dieses Skript demnächst bereit haben. Hier nochmals einen Auszug aus meinem letzten Beitrag....
Ich habe das Script angepasst. Lief ziemlich gut bis zu einem bestimmten Punkt. Auf Zeile 43 habe ich nun eine Fehlermeldung, die ich einfach nicht nachvollziehen kann.
Der Fehler wird beim Befehl "b.SetInfo" aufgerufen.
Ich erhalte ein Windows Script Host Fenster mit folgender Meldung
Skript: c:\work\useradd.vbs
Zeile: 43
Zeichen: 1
Fehler: Die Attributsyntax, die dem Verzeichnisdienst übergeben wurde, ist ungültig.
Code: 8007200B
Quelle: Active Directory
Hier mein 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)
Mail = Feld(4)
Rufnummer = Feld(5)
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=User,OU=Zürich,DC=testdom,DC=loc")
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "givenName", Vorname
b.Put "sn", Nachname
b.Put "displayName", Vorname & Nachname
b.put "telephoneNumber", Rufnummer
b.put "accountExpires", "nie"
b.put "userAccountControl", "[NormalAccount, NoPasswordExpiration]"
b.Put "userPrincipalName", Benutzer & "@testdom.loc"
b.Put "profilePath", "\\S22\profile$\" & Benutzer
b.Put "homeDirectory", "\\S22\home$\" & Benutzer
b.Put "homeDrive", "H:"
b.Put "mail", Mail
b.Put "c", "CH"
b.Put "co", "Schweiz"
b.Put "l", "Zürich"
b.Put "postalCode", "8000"
b.Put "st", "Zürich"
b.Put "streetAddress", "Seestrasse 19" & vbCrlf & "" & vbCrlf
b.SetInfo
b.SetPassword Passwort
b.AccountDisabled = False
b.SetInfo
WScript.Sleep(1000)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)
End Sub
Kannst du mir dabei helfen? Was ist die Ursache dieses Problems?
Gruss Ramon