Go4Expert (http://www.go4expert.com/)
-   Meet and Greet (http://www.go4expert.com/community/meet-and-greet/)
-   -   Adding users to folders with permission (http://www.go4expert.com/community/adding-users-folders-permission-t28260/)

somaras 25Apr2012 02:40

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)


All times are GMT +5.5. The time now is 19:33.