ISProviderGroupFilter.Code

Example

Display the number of the provider groups loaded on the basis of the selected filter, their names and group members.

Dim aFilter
Dim aProviderGroups
Dim aProviderGroup
Dim aMessage
Dim i 
Dim aMembers
Dim aGroupMember

Set aFilter = Profile.CreateProviderGroupFilter
aFilter.Code = "APP"
set aProviderGroups = Profile.LoadProviderGroups(aFilter)

aMessage = "Provider Groups Count = " & aProviderGroups.Count

for i = 0 to aProviderGroups.Count - 1
  set aProviderGroup = aProviderGroups.Items(i)
  aMessage = aMessage & vbNewLine & "The name of the group is " & aProviderGroup.Name 

  set aMembers = aProviderGroup.GroupMembers  

  if aMembers.Count > 0 then
     aMessage = aMessage & vbNewLine & "      Group Members: "
    for each aGroupMember in aMembers
      aMessage = aMessage & vbNewLine & "      - " & aGroupMember.Name
    next
  end if  

next

Profile.MsgBox(aMessage)