ISProviderGroup.GroupMembers

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 aGroupMember

Set aFilter = Profile.CreateProviderGroupFilter
aFilter.ID = 154
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 & aProviderGroup.Name & " (" &_ 
    aProviderGroup.Code & ")" & vbNewLine & "Group Members Count = " &_
      aProviderGroup.GroupMembers.Count 
      
  if aProviderGroup.GroupMembers.Count > 0 then 
    for each aGroupMember in aProviderGroup.GroupMembers
      aMessage = aMessage & vbNewLine & " - " & aGroupMember.Name
    next
  end if  
next  
Profile.MsgBox(aMessage)