This method grants a user access to a Content Deployment project.
Syntax
ReplicationProject.GrantAccess(User, Access)
Parameters
User
User/group to be granted access to Content Deployment.
Access
The permissions for the user:
Name | Value | Description |
CRS_ADMIN_ACCESS | 983103 | The user has Site Server Publishing administrator access privileges |
CRS_USER_ACCESS | 131097 | The user has Site Server Publishing operator access privileges |
Remarks
You must have Site Server Publishing administrator privileges on the server to call this method.
Example
The following example grants administrator access to the user Dougs on Project1.
Option Explicit
On Error Resume Next
const OPEN_EXISTING_PROJECT = 2
const CRS_ADMIN_ACCESS = 0&F003F
dim ReplServer
set ReplServer = CreateObject("Crsapi.ReplicationServer")
ReplServer.Initialize("")
dim ReplProject
set ReplProject = ReplServer.OpenProject("Project1", OPEN_EXISTING_PROJECT)
ReplProject.GrantAccess("Dougs", CRS_ADMIN_ACCESS)
'Release objects
set ReplProject = Nothing
set ReplServer = Nothing
See Also