ISOrgMember.GetRegistryKeysByCode

Description

This function returns the registry keys of the organisation node with the specified code.

Syntax

object.GetRegistryKeysByCode(aKeyCode)

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

Return Value

ISList

Returns the registry keys of the organisation node with the specified code.

Example

Display the number of the registry keys of the organisation node with the specified code.

Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aAllRegKeys
Dim aRegKeyShortCode
Dim aMessage

aRegKeyShortCode = "TESTKEY"
Set aFilter = Profile.CreateOrgMembersFilter
set aOrgMembers = Profile.LoadOrgMembers(aFilter)

aMessage = "Org Nodes Count = " & aOrgMembers.Count

for each aOrgMember in aOrgMembers
  set aAllRegKeys = aOrgMember.GetRegistryKeysByCode (aRegKeyShortCode)   
  aMessage = aMessage & vbNewLine & aOrgMember.Name & vbNewLine &_
    "    The number of Registry Keys with the code '" &_
    aRegKeyShortCode & "' is " & aAllRegKeys.Count         
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Registry Keys can be found in Organisation > People & Places > Organisational Structure > Open the selected node > Registry.

Version information

Added in v7.8.0