Gruppen per Script zuweisen

[JB_83 10]

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

[Xelerator 10]

Hallo,

 

probiere mal folgendes:

 

set objuser = GetObject("LDAP:// CN=[uSER],OU=Lehrer,OU=Benutzer,OU=HBS-MS.intern,DC=hbs-ms,DC=intern")

set objgroup = GetObject("LDAP:// ...[PFAD DER GRUPPE]...")

 

objgroup.add objuser.adspath

objgroup.setinfo

 

 

[uSER] und [PFAD DER GRUPPE] musst Du entsprechend anpassen.

Viel Erfolg!

[JB_83 10]

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.

[Xelerator 10]

Hallo nochmal,

 

ich habe mal Deine Werte eingetragen. So müsste es funktionieren:

 

set objuser = GetObject("LDAP:// CN="& Nachname &"\, "& Vorname,OU=Lehrer,OU=Benutzer,OU=HBS-MS.intern,DC=hbs-ms,DC=intern")

set objgroup = GetObject("LDAP:// CN=Schueler,OU=User,OU=HBS-MS.intern,DC=hbs-ms,DC=intern")

 

objgroup.add objuser.adspath

objgroup.setinfo

 

Gruß Xele