Profilpfade per Script ändern ?

Ich ziehe gerade mit etwa 3000 Benutzerkonten auf einen anderen Server, das klappte auch wunderbar.

Nun suche ich ein Script was den Benutzerkonten einen eigenen Profilpfad und Homelaufwerk zuordnet und anlegt, ohne das ich händisch in jedes Profil muss.

Habe mir schon überlegt dieses Script umzuschreiben:

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(2)
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=neueUser,,OU=Benutzer,DC=freedom,DC=testdomain")
Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)
Dim WshShell, ret
Set WshShell = WScript.CreateObject("WScript.Shell")
b.Put "sAMAccountName", Benutzer
b.Put "displayName", Vorname & " " & Nachname
b.Put "givenName", Vorname
b.Put "sn", Nachname
b.Put "userAccountControl", 66082
b.Put "userPrincipalName", Benutzer & "@DomainName.TopLevelDomain"
b.Put "profilePath", "\\Server\homedrive\" & Benutzer
b.Put "homeDirectory", "\\Server\homedrive\" & Benutzer
b.Put "homeDrive", "Z:"
b.Put "pwdLastSet", 0
b.SetInfo
b.SetPassword Passwort
b.AccountDisabled = False
b.SetInfo
WScript.Sleep (1000)
ret = WshShell.Run("verz.cmd " & Benutzer, 0, 1)
End Sub

nur ist das Script für die einrichtung neuer Benutzer gedacht.

hat jemand nen Tip wie ich das Script dazu bringe die OU zu durchkämmen und bei jedem user den Eintrag zu aktualisieren ?

bin über jede Info,Link, etc dankbar