This function adds PPPU with the specified ID to the selected provider group.
object.AddPppuMember
aPPPUID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProviderGroup interface |
|
aPPPUID |
In, Required | int |
ID of PPPU that will be added to the provider
group |
Display the number of the provider groups loaded on the basis of the selected filter and add PPPU with the specified ID to the selected provider group.
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
next
set aProvider = Profile.LoadProvider ("ADMIN")
aProviderGroup.AddPppuMember(aProvider.Id)
Profile.MsgBox(aMessage & vbNewLine & "The Provider '" & aProvider.FullName &_
"' was added to the group '" & aProviderGroup.Name & "'")
In Profile Client v8 on User Interface PPPU Members can be added in
.