Adding users to folders with permission

Hello friends,

1. I'm having AD group "UserCreations" and I added some members to that group.
2.For each members I have created folders for each members in network shared folder.

but, I don't know how to add members to appropriate folders with "modify" permission. Please help me!

Here the code for creating folder from AD group:

Code=VB Script

On Error Resume Next
Dim objFSO, objFolder,objShell, intRunError
Set objGroup = GetObject _
("LDAP://cn=UserCreation,ou=groups,ou=aaa,ou=bbb,dc=ads,dc=ccc,dc=com")
arrMemberOf = objGroup.GetEx("member")
For Each strMember in arrMemberOf
sFilterString = strMember
aJustCN = Split(sFilterString,",")
sJustCN = Replace(aJustCN(0),"CN=","")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(sJustCN)
Next

Thanks!