1. We have moved from vBulletin to XenForo and you are viewing the site in the middle of the move. Though the functional aspect of everything is working fine, we are still working on other changes including the new design on Xenforo.
    Dismiss Notice

Adding users to folders with permission

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

  1. somaras

    somaras New Member

    Joined:
    Apr 24, 2012
    Messages:
    1
    Likes Received:
    0
    Trophy Points:
    0
    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!
     

Share This Page