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