ISProvider.GetRoles

Description

This function returns the simple roles of the provider.

Syntax

object.GetRoles()

Part	Attribute	Type	Description
`object`	Required	ISProvider	The `object` always implements the ISProvider interface

Return Value

ISRoles

Returns the simple roles of the provider.

Example

Display the number of the provider's simple roles and their names.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aRoles
Dim aRole
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider
set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = aMessage & vbNewLine &_
  "The number of the providers is " & aProviders.Count

for each aProvider in aProviders
  set aRoles = aProvider.GetRoles
  aMessage = aMessage & vbNewLine & aProvider.FullName &_
    "  has " & aRoles.Count & " role(s)" 
  
  for i = 0 to aRoles.Count - 1 
    set aRole = aRoles.Item (i)
    aMessage = aMessage & vbNewLine & "  - " & aRole.RoleName 
  next      
next
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Roles can be found in Organisation > People&Places > People and Places > Open the selected Provider > Roles > Roles (Works as POS Roles).

Version information

Added in v7.8.0