User anlegen im AD Homeverzeichnisse und Berechtigungen etc.

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)
Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Loop
f.Close
Wscript.Quit(0)

Sub BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)
Dim ouo, b
Set ouo = GetObject("LDAP://OU=Bla,DC=Blub,DC=local")  
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 & "@Domäne"  
b.Put "profilePath", "\\Server\Profiles$\" & Benutzer  
b.Put "homeDirectory", "\\Server\home$\" & Benutzer  
b.Put "homeDrive", "H:"  
b.SetInfo
b.SetPassword Passwort
b.AccountDisabled = False
b.Put "pwdLastSet", 0  
b.SetInfo
WScript.Sleep(1000)
ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)  
End Sub

md "d:\home\%1"  
set pfad="D:\Home\%1"  
echo j|cacls %pfad% /C /G Domäne\Administratoren:F
echo j|cacls %pfad% /C /E /G SYSTEM:F
cacls %pfad% /C /E /G Domäne\%1:F