1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

Adding users to folders with permission

Discussion in 'Meet and Greet' started by somaras, Apr 24, 2012.

  1. somaras

    somaras New Member

    Apr 24, 2012
    Likes Received:
    Trophy Points:
    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 _
    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)


Share This Page