ISProvider.GetPrivacyRights

Example

Display the number of the provider's privacy rights and their names.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aPrivacyRights
Dim aPrivacyRight
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 aPrivacyRights = aProvider.GetPrivacyRights
  aMessage = aMessage & vbNewLine & aProvider.FullName &_
    "  has " & aPrivacyRights.Count & " privacy right(s)" 
  
  for i = 0 to aPrivacyRights.Count - 1 
    set aPrivacyRight = aPrivacyRights.Item (i)
    aMessage = aMessage & vbNewLine & "  - " & aPrivacyRight.RoleName 
  next      
next
 
Profile.MsgBox (aMessage)