This function returns the providers by their roles.
object.LoadProvidersByRole(aCategory, aRoleName)
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aCategory |
In, Required | The category of the provider |
|
aRoleName |
In, Required | string |
The role of the provider |
Display the number of the providers, their full names and codes.
Dim aProviders
Dim aProvider
Dim aMessage
Dim aCategory
Dim aRoleName
aCategory = 2 'pcProvider
aRoleName = "Sys Admin"
Set aProviders = Profile.LoadProvidersByRole(aCategory, aRoleName)
aMessage = "Providers Count = " & aProviders.Count & vbNewLine
for i = 0 to aProviders.Count - 1
set aProvider = aProviders.Item(i)
aMessage = aMessage & aProvider.FullName & " (" & aProvider.Code & ")" &_
vbNewLine
next
Profile.MsgBox(aMessage)In Profile Client v8 on User Interface Provider Roles can be found in .