Adding users to folders with permission
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:
On Error Resume Next
Dim objFSO, objFolder,objShell, intRunError
Set objGroup = GetObject _
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)
|All times are GMT +5.5. The time now is 05:34.|