creare foldere multiple si drepturi multiple

Va salut.

Vreau sa creez mai multe directoare si sa dau drepturi pe ele , si numele acestor directoare sa fie intrun fisier txt sau excel sau ceva.....

De exemplu:

Am un fisier txt care contine nume utilizatori (user1, user2,user3,etc)
Vreau sa creez mai multe foldere cu nume user1, user2, user3, etc
Vreau sa dau drepturi pe fiecare folder in parte (folderul "user1" sa nu poata fi accesat doar de user1, folderul "user2"sa nu poata fi accesat decat de user2 si asa mai departe ...

Nu ma prea pricep si am un script de la cineva dar nu functioneaza.Va pun si scriptul mai jos , poate cineva ma poate ajuta.

'Creates folders by reading an .xls file, which contains usernames
'Then set permissions for the users for his home folder.

Option Explicit
Dim intRow, objExcel, objSheet, strPathExcel
Dim strHomeFolder, strHome, strUser
Dim objFSO, objShell, intRunError

' Note you will have to amend the following variables
strHome = "C:\coco\"
strPathExcel = "C:\coco\newUsers.xls"
intRow = 3 ' Row 1 contains headings

' Open the Excel spreadsheet
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")
Set objSheet = objExcel.Workbooks.Open(strPathExcel)

' Create a shell for cmd and CACLS
Set objShell = CreateObject("Wscript.Shell")

' Here is the loop that cycles through the cells
Do Until (objExcel.Cells(intRow,1).Value) = ""
strUser = objExcel.Cells(intRow, 1).Value
call HomeDir ' I decided to use a subroutine
intRow = intRow + 1
Loop
objExcel.Quit ' Clears up Excel

Sub HomeDir()
strHomeFolder = strHome & strUser
If strHomeFolder <> "" Then
If Not objFSO.FolderExists(strHomeFolder) Then
On Error Resume Next
objFSO.CreateFolder strHomeFolder
    If Err.Number <> 0 Then
    On Error GoTo 0
    Wscript.Echo "Cannot create: " & strHomeFolder
    End If
On Error GoTo 0
End If
    If objFSO.FolderExists(strHomeFolder) Then
    ' Assign user permission to home folder.
    intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls "_
    & strHomeFolder & " /t /c /g username:f "_
    & strUser & ":F", 2, True)
       If intRunError <> 0 Then
       Wscript.Echo "Error assigning permissions for user " _
       & strUser & " to home folder " & strHomeFolder
       End If
   End If
End If
End Sub
objExcel.Quit

WScript.Quit

' End of Cacls example VBScript


De creat creaza folderele dar nu da drepturi pe ele si primesc eroarea de la sfarsitul scriptului (Error assigning permissions for user username to home folder c:\coco\username)


Scuze pentru un topic asa lung .