JB_83

mhh das funktioniert so leider noch nicht... Ich bekomm die Fehlermeldung: "Typen unverträglich:'GetObjekt'" in der Zeile: Frage hierzu: Was soll ich denn bei CN= für einen User angeben? set objuser = GetObject("LDAP:// CN=[uSER],OU=Lehrer,OU=Benutzer,OU=HBS-MS.intern,DC=hbs-ms,DC=intern") Und hierzu: Wie gibt man den Pfad einer Gruppe an? Also wie genau ist die Syntax, wenn ich z.B. eine Gruppe "Schueler" habe, die in einer OU "User" angelegt ist? set objgroup = GetObject("LDAP:// ...[PFAD DER GRUPPE]...") Dennoch vielen Dank für deine Hilfe.

Hallo zusammen ... ich verwende thorgoods script, um meine Benutzer im AD anzulegen. Mit welchem Befehl kann ich die Benutzer eine Gruppe zuweisen? 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) Stadt = Feld(4) PLZ = Feld(5) Postfach = Feld(6) Bundesland = Feld(7) StrasseZeile1 = Feld(8) StrasseZeile2 = Feld(9) Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Stadt,PLZ,Postfach,Bundesland,StrasseZeile1,StrasseZeile2) Loop f.Close Wscript.Quit(0) Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort,Stadt,PLZ,Postfach,Bundesland,StrasseZeile1,StrasseZeile2) Dim ouo, b ' Der Benutzer wird in der OU "Benutzer" angelegt, die wiederum eine Unter-OU von "muensterland-it" ist Set ouo = GetObject("LDAP://OU=Lehrer,OU=Benutzer,OU=HBS-MS.intern,DC=hbs-ms,DC=intern") Set b = ouo.Create("user", "CN=" & Nachname & "\, " & Vorname ) Dim WshShell, ret Set WshShell = WScript.CreateObject("WScript.Shell") b.Put "sAMAccountName", Benutzer b.Put "displayName", Nachname & ", " & Vorname b.Put "givenName", Vorname b.Put "sn", Nachname b.Put "userAccountControl", 66082 b.Put "userPrincipalName", Benutzer & "@hbs-ms.intern" b.Put "profilePath", "\\Server\Profile$\" & Benutzer b.Put "homeDirectory", "\\Server\user\Lehrer\" & Benutzer b.Put "homeDrive", "z:" b.Put "scriptPath", "lehrer.cmd" b.Put "c", "DE" b.Put "co", "Deutschland" b.Put "l", Stadt b.Put "postalCode", PLZ b.Put "postOfficeBox", Postfach b.Put "st", Bundesland b.Put "streetAddress", StrasseZeile1 & vbCrlf & StrasseZeile2 & vbCrlf b.TerminalServicesHomeDirectory = "\\Server\daten\user\" & Benutzer b.TerminalServicesHomeDrive = "U:" b.TerminalServicesProfilePath = "\\Server\daten\profile\Terminal\" & Benutzer b.Put "pwdLastSet", 0 b.Setinfo ' Dass Kennwort in der Datei USER.TXT muss zwingend den Kennwortrichtlinien entsprechen b.SetPassword Passwort b.AccountDisabled = False b.SetInfo WScript.Sleep(1000) ret = WshShell.Run ("verz.cmd " & Benutzer,0,1) End Sub Vielen Dank im Vorraus... Jörg