Jump to content
Melde dich an, um diesen Inhalt zu abonnieren  
JB_83

Gruppen per Script zuweisen

Empfohlene Beiträge

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

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen

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!

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen

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.

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen

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

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Erstelle ein Benutzerkonto oder melde dich an, um zu kommentieren

Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können

Benutzerkonto erstellen

Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!

Neues Benutzerkonto erstellen

Anmelden

Du hast bereits ein Benutzerkonto? Melde dich hier an.

Jetzt anmelden
Melde dich an, um diesen Inhalt zu abonnieren  

×