GrantAccess Method

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

CheckAccess, RemoveAccess


© 1997-1998 Microsoft Corporation. All rights reserved.