ISProvider.AddRegistryKey

Description

This function adds a new registry key to the provider.

Syntax

object.AddRegistryKey(aKeyCode, aKeyValue)

Part	Attribute	Type	Description
`object`	Required	ISProvider	The `object` always implements the ISProvider interface
`aKeyCode`	In, Required	string	The code of the registry key
`aKeyValue`	In, Required	string	The value of the registry key

Return Value

ISRegistryKey

Returns the added registry key.

Example

Add a new registry key with the selected code and value to the provider.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aAllRegKeys
Dim aRegKeyShortCode
Dim aRegKey
Dim aMessage

aRegKeyShortCode = "LOCATIONID"
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.GetRegistryKeys   
  aMessage = aMessage & vbNewLine & "   Registry Keys Count = " & aAllRegKeys.Count 
  
  set aRegKey = aProvider.AddRegistryKey(aRegKeyShortCode, "NiceValue") 
  aProvider.Save
  
  if not aRegKey is nothing then
    aMessage = aMessage & vbNewLine & "New Registry Key was created successfully " &_
      "( Id= " & aRegKey.Id & ", KeyValue = " & aRegKey.KeyValue & " )"
  end if 
     
next  
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Registry Key can be found and added in Organisation > People&Places > People and Places > Open the selected Provider > Registry > Key.

Version information

Added in v7.8.0