This function returns the registry keys of the provider with the specified code.
object.GetRegistryKeysByCode(aKeyCode)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProvider interface |
|
aKeyCode |
In, Required | string |
The code of the registry key |
Display the number of the provider's registry keys with the specified code.
Dim aFilter
Dim aProviders
Dim aProvider
Dim aAllRegKeys
Dim aRegKeyShortCode
Dim aMessage
aRegKeyShortCode = "MSP M01"
Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider
set aProviders = Profile.LoadProvidersByFilter(aFilter)
aMessage = aMessage & vbNewLine &_
"The number of the providers is " & aProviders.Count
for each aProvider in aProviders
set aAllRegKeys = aProvider.GetRegistryKeysByCode (aRegKeyShortCode)
aMessage = aMessage & vbNewLine & aProvider.FullName & vbNewLine &_
" The number of Registry Keys with the code '" &_
aRegKeyShortCode & "' is " & aAllRegKeys.Count
next
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Registry Keys can be found in
.