ISOrgMember.DeleteRegistryKey

Example

Delete the selected registry key of the organisation node.

Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aAllRegKeys
Dim aRegKey
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
  aMessage = aMessage & vbNewLine & aOrgMember.Name 
  set aRegKey = aOrgMember.AddRegistryKey(aRegKeyShortCode, "1111111111") 
    
  set aAllRegKeys = aOrgMember.GetRegistryKeys   
  aMessage = aMessage & vbNewLine &_
    "   Registry Keys Count BEFORE DELETING = " & aAllRegKeys.Count
  
  set aRegKey = aAllRegKeys.Item(0) 
  aOrgMember.DeleteRegistryKey(aRegKey)
  
  set aAllRegKeys = aOrgMember.GetRegistryKeys
  aMessage = aMessage & vbNewLine &_
    "   Registry Keys Count AFTER DELETING= " & aAllRegKeys.Count
next      

Profile.MsgBox(aMessage)