ramon67

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

Hallo Thorgood 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