Setting Group Security with NRS Script

sleclerc

I have a database where a specific group should always have "Full Access" to all documents, but not necesarily should have "Full Access" to the folders they are placing documents into. So I am trying to set the Group's Rights in the NewProf.nrs script file and I receive an "access is denied" error when I reach the line in the script that reassigns the security. Does anyone have a suggestion how I can update the group security on the imported document. Here's the code I'm using. BTW it fails on the line that reads "secDlg.GroupNameArray = newGroups" :


Const imPublic = 80
Const imPrivate = 88
Const imView = 86
Const imRightNone = 0
Const imRightRead = 1
Const imRightReadWrite = 2
Const imRightAll = 3
Const strAllUsersGroupName = "ALLUSERS"

Sub NewProfileDlg_OnOK(dlg)
Dim k
Dim arGroups
Dim arRights
Dim newGroups
Dim newRights
Dim secDlg
Dim blnSecChanged

Set secDlg = dlg.UsrGrpSecurityDlg

blnSecChanged = False

Stop

' Check if the document's security is not set to Private
If Context("ImportedDocument").Security.DefaultSecurity = imPublic Then
arGroups = secDlg.GroupNameVariantArray
arRights = secDlg.GroupAccessRightsVariantArray

' Resize the new arrays
ReDim newGroups(UBound(arGroups))
ReDim newRights(UBound(arRights))

' Check If the AllUsers group was added to the document's security
For k = 0 To UBound(arGroups)
' Add the group name to the new Array
newGroups(k) = arGroups(k)

'If StrComp(oGroup.Group.Name, strAllUsersGroupName, 1) = 0 Then
If StrComp(arGroups(k), strAllUsersGroupName, 1) = 0 Then
' Make sure the group Is Not Set To no access
If arRights(k) <> imRightNone Then
' The group does not have no access, make sure it gets it
' has full access
newRights(k) = imRightAll
blnSecChanged = True
Else
' The rights do not need to change, so somply exit everything
Exit For
End If
Else
' This is not the group we are looking for, so simply copy it's security Right
newRights(k) = arRights(k)
End If
Next
End If

If blnSecChanged Then
secDlg.GroupNameArray = newGroups
secDlg.GroupAccessRightsArray = newRights
End If

Set secDlg = Nothing

End Sub

jny

I don't think you can modify the acl's in the OnOK event as the dialog is already done with committing its profile/security info to the server. Why not just change the security through the document object, which is returned by the ImportedDocument ContextItem? The fact that you can get a handle to the imported document object is because the document is already checked into the database.

The NRTDocument.Security.GroupACLs collection object can be used instead.