Du kan jo bruge dette lille script til at ændre stien for alle brugere:
Du skal lave følgende ændringer:
1.Lave en tekstfil med alle brugernavn.
2. Const INPUT_FILE_NAME = "C:\Temp\Scripting\Bruger.txt" , ændres til hvor du har gemt den tekstfil du oprettet i punkt 1.
3. ("
LDAP://cn=" & strBrugere & ",ou=Brugere,dc=msi,dc=local")
Ændres til din OU og domæne!
4. objUser.Put "homeDirectory", "\\computer\Profiler\" & strBrugere
objUser.Put "homeDrive", "H:"
Her ændrer du "\\computer\Profiler\ til din sti hen til den mappe hvor du har oprettet dine profiler.
"homeDrive", "H:" er her sat til H: - du ændrer den til det du ønsker!
-----------------------------------------------------
Const INPUT_FILE_NAME = "C:\Temp\Scripting\Bruger.txt"
Const FOR_READING = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(INPUT_FILE_NAME, FOR_READING)
strBrugere = objFile.ReadAll
objFile.Close
arrBrugere = Split(strBrugere, vbCrLf)
For Each strBrugere In arrBrugere
Set objUser = GetObject _
("
LDAP://cn=" & strBrugere & ",ou=Brugere,dc=msi,dc=local")
objUser.Put "homeDirectory", "\\computer\Profiler\" & strBrugere
objUser.Put "homeDrive", "H:"
objUser.SetInfo
Next
---------------------------------------------------------------------
VH
Svein
http://www.svein.dk