This function returns the provider's ID from each partition.
object.LoadMPLInfos()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProvider interface |
Display the number of the provider's MPL Infos and list IDs of this provider from each partition.
Dim aProvider
Dim aMPLInfos
Dim aMPLInfo
Dim aProvider2
Dim aMessage
Set aProvider = Profile.LoadProvider("VE3")
set aMPLInfos = aProvider.LoadMPLInfos
aMessage = "Provider has " & aMPLInfos.Count & " MPL " & vbNewLine
for I = 0 to aMPLInfos.Count - 1
set aMPLInfo = aMPLInfos.Item(i)
set aProvider2 = Profile.LoadProviderById(aMPLInfo.ProviderID)
aMessage = aMessage & vbNewLine & (i + 1) & ") " & aProvider2.FullName &_
" (" & aProvider2.Id & ")"
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface MPL Infos cannot be found.