Jump to content

Gruppen per Script zuweisen


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

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

Link zu diesem Kommentar

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.

Link zu diesem Kommentar

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

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...