Script Profis?

[DonB 10]

// Hat sich schon erledigt selber drauf gekommen!

 

 

Hallo ich habe ein Script zum User anlegen.

 

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)

Password = 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=scripts,DC=DOMOL,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 & "@DOMOL.de"

b.Put "profilePath", "\\dcol01\daten\profile\" & Benutzer

b.Put "homeDirectory", "\\dcol01\daten\home\" & Benutzer

b.Put "homeDrive", "U:"

'28

 

b.SetInfo

b.SetPassword Password

b.AccountDisabled = False

b.SetInfo

 

 

WScript.Sleep(1000)

 

End Sub

 

 

Es funktioniert auch tadellos, ich möchte nun noch die Terminal Profil Pfade usw. anlegen dafür habe ein zweites Script:

 

Const Enabled = 1

Const Disabled = 0

Set objUser = GetObject("LDAP://CN=Test test,OU=scripts,DC=DOMOL,DC=de")

objUser.TerminalServicesProfilePath = "\\server\Pro"

objUser.TerminalServicesHomeDirectory = "\\server\ho"

objUser.TerminalServicesHomeDrive = "H:"

objUser.AllowLogon = Enabled

 

objUser.SetInfo

 

Diese Script ändert jedoch nur das Profil von einen speziellen Benutzer.

 

Kann mir jemand helfen wie ich das auch automatisiere für alle Benutzer der Textdatei??

 

Vielen Dank