ConfigurationManager.Roles property
The Roles property retrieves a value that identifies the role.
This property is read-only.
Syntax
ConfigurationManager.Roles
Property value
This property is read-only. The property returns an bitwise-combination of the following values.
None (0x0)
No role is defined.
Auditor (0x1)
The auditing role is defined.
TemplateEditor (0x2)
The rights template editing role is defined.
Administrator (0x4)
The administrator role is defined.
Remarks
The role is determined by the access control list on the AD RMS Administration website.
Examples
DIM config_manager
DIM admin_role
' *******************************************************************
' Create and initialize a ConfigurationManager object.
SUB InitObject()
CALL WScript.Echo( "Create ConfigurationManager object...")
SET config_manager = CreateObject _
("Microsoft.RightsManagementServices.Admin.ConfigurationManager")
CheckError()
CALL WScript.Echo( "Initialize...")
admin_role=config_manager.Initialize(false,"localhost",80,"","","")
CheckError()
END SUB
' *******************************************************************
' Retrieve the roles.
SUB GetUserRoles()
admin_role = config_manager.Roles
CheckError()
END SUB
' *******************************************************************
' Error checking function.
FUNCTION CheckError()
CheckError = Err.number
IF Err.number <> 0 THEN
CALL WScript.Echo( vbTab & "*****Error Number: " _
& Err.number _
& " Desc:" _
& Err.Description _
& "*****")
WScript.StdErr.Write(Err.Description)
WScript.Quit( Err.number )
END IF
END FUNCTION
' *******************************************************************
' Generate a runtime error.
SUB RaiseError(errId, desc)
CALL Err.Raise( errId, "", desc )
CheckError()
END SUB
Requirements
| Minimum supported client |
None supported |
| Minimum supported server |
Windows Server 2008 |
| Assembly |
|