Bäumchen

abend

ich habe zwar nicht ganz so viel plan von VBScript aber naja ich versuchs mal *g*

b.SetInfo

<--damit werden die einstellungen gesetzt, dh nach den TS-einstellungen muss das auch hin

ich hoffe es geht jetzt :)

mfg

norbert

gn8

hallo

danke schon mal werde es morgen testen!

Set objGroup = GetObject ("LDAP://cn=" & GroupObj & ",ou=Gruppen,ou=unterricht,DC=testschule2,DC=SON,DC=stadt,DC=de")
objGroup.PutEx 3, "member", Array("cn=" & Vorname & " " & Nachname & ",ou=" & Stufe & ",ou=schueler,dc=testschule2,dc=SON,dc=stadt,dc=de")
objGroup.SetInfo

thorgood

was bdeutet hier "member"

mfg

bäumchen

Hallo Pro's und Scripter

bitte mir helfen.....

es ist wichtig, vorallem weils morgen fertsch sein muss und gehen

mfg

Bäumchen

hallo,

ich habe mir die 10 seiten durch gelesen und auch den SUPER-SCRIPT genommen und versucht anzupassen *g*

aber die Gruppen zuweißung klappt leider nicht :( kann mir einer helfen??

also es geht alles, wie gesagt nur bis auf die die schüler in die gruppe schueler zu packen

-----user.txt-----
user1,vor1,nach2,pwd,Stufe_A,schueler
user2,vor2,nach2,pwd,Stufe_B,schueler
----ende user.txt-----
----vbscript.vbs----
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)
Stufe = Feld(4)
GroupObj = Feld(5)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Stufe,GroupObj)
Loop
f.Close
Wscript.Quit(0)

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort,Stufe,GroupObj)
Dim ouo, b
Set ouo = GetObject("LDAP://ou=" & Stufe & ",ou=schueler,dc=testschule2,dc=SON,dc=stadt,dc=de")
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "userPrincipalName", Benutzer & "@testschule2.son.stadt.de"
'b.Put "profilePath", "\\kserver\daten\profile\" & Benutzer
b.Put "homeDirectory", "\\kserver\home$\" & Stufe & "\" & Benutzer
b.Put "homeDrive", "H:"
b.put "memberOf", "cn=Schueler,ou=Gruppen,ou=unterricht,DC=testschule2,DC=SON,DC=stadt,DC=de"
b.SetInfo
b.SetPassword Passwort
b.AccountDisabled = False
b.SetInfo
WScript.Sleep(1000)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)

'Die Gruppe wird gesucht und als Ziel definiert.
Set GroupObj = GetObject("LDAP://kserver.testschule2.SON.stadt.de/CN=" & Benutzer & ",OU=" & Stufe & ",ou=SCHUELER,DC=testschule2,DC=SON,DC=stadt,DC=de")
'Der User wird in die entsprechende Gruppe integriert.
GroupObj.Add (""&"WinNT://kserver/" & Benutzer & "")
Set DomainObj = Nothing ' Variable wird frei gegeben '
Set GroupObj = Nothing ' Variable wird frei gegeben '

End Sub
----ende vbscript.vbs-----
----verz.cmd----
md \\kserver\home$\schueler\%1\%2
echo J | cacls \\kserver\home$\schueler\%1\%2 /C /E /G Administratoren:F
echo J | cacls \\kserver\home$\schueler\%1\%2 /C /E /G domaene\%2:F
----ende verz.cmd----

ich hoffe ihr könnt mir helfen

mfg

Bäumchen