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
