ISExternalProvider.GetRegistryKeysByCode

Description

This function returns the registry keys of the external provider with the specified code.

Syntax

object.GetRegistryKeysByCode(aKeyCode)

Part Attribute Type Description
object Required
The object always implements the ISExternalProvider interface
aKeyCode In, Required
string
The code of the registry key

Return Value

ISList

Returns the registry keys of the external provider with the specified code.

Example

Display the number of the external provider's registry keys with the specified code.

Dim aExtProvider
Dim aCode
Dim aKeyCode
Dim aAllRegKeys
Dim aMessage

aCode = "1"
aKeyCode = "MSP M01"
Set aExtProvider = Profile.LoadExternalProvider(aCode)

if aExtProvider.ID = 0  then 
  Profile.MsgBox("No external provider with the specified code")
  exit sub   
end if
  
  set aAllRegKeys = aExtProvider.GetRegistryKeysByCode (aKeyCode)   
  aMessage = aMessage & vbNewLine & aExtProvider.FullName & vbNewLine &_
    "    The number of the registry keys with the code '" &_
    aKeyCode & "' is " & aAllRegKeys.Count
     
Profile.MsgBox (aMessage)  
Note:

In Profile Client v8 on User Interface Registry Keys can be found in Organisation > External Providers > Basic > Registry.

Version information

Added in v7.8.0