ISProviderGroup.ContainsPPPU

Description

This function checks if the provider group contains PPPU with the specified ID.

Syntax

object.ContainsPPPU(aPPPUID)

Part	Attribute	Type	Description
`object`	Required	ISProviderGroup	The `object` always implements the ISProviderGroup interface
`aPPPUID`	In, Required	int	ID of PPPU

Return Value

bool

Returns True if the provider group contains PPPU with the specified ID.

Example

Display the number of the provider groups loaded on the basis of the selected filter and check if the provider group contains PPPU with the specified ID.

Dim aFilter
Dim aProviderGroups
Dim aProviderGroup
Dim aMessage
Dim i 
Dim aProvider

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 

  set aProvider = Profile.LoadProvider ("MM")
  if aProviderGroup.ContainsPPPU(aProvider.Id) then
    aMessage = aMessage & vbNewLine & "The Provider Group '" &_ 
      aProviderGroup.Name & "' contains " & aProvider.FullName 
  else  
    aMessage = aMessage & vbNewLine & "The Provider Group '" &_
      aProviderGroup.Name & "' does not contain " & aProvider.FullName
  end if 
next
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface PPPU can be found in Organisation > People & Places > People and Places > Edit > Members.

Version information

Added in v7.8.0