custom inventory registry key and down

Ok so I have a registry key that I filled in and works. We get computers from vendors and if it has office already on it, we do not need to worry BUT if we install office we need to be able to detect that. I have that working great...

now what I want to do is go backwards and allow this registry section to be fully inventoried in so I do not keep on creating individual custom inventories from this point forward..

example is I want to put our 

Image Build Info (version, date, etc)

various software

so if I have a registry key at HKLM\Software\LCSSoftware

and under that I have

OS Build
Office 2013
WinZip 10

I would like the custom inventory to cylce through them all. I believe I need a function but I am not good at this part.

Any Help Greatly Appreciated

here is my office custom inventory

Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002

Dim strComputer, objRegistry, strSubKeyPath, nse, objDCInstance, objDataClass, objDataRow
Dim strLABLocation, strLABClient, strLABAssetTag, strLABPcSerialNo, strLABUserID, strLABDefaultDataLoc
Dim strSite, strLABControlled, strLabInst1Vendor, WshShell, OsType, strBlank 
Dim strLabInst1Model, strLabInst1Type, strLabInst2Vendor, strLabInst2Type, strLabInst2Model, strLabSWVendor1, strLabSWAppName1
Dim strLabSWAppVersion1, strLabSWLicenseType1, strLabSWVendor2, strLabSWAppName2, strLabSWAppVersion2, strLabSWLicenseType2, strIsDataArchived
Dim strIfArchivedHow, strISSystemNetworked, strLABLabacct, strLastInventoryDate, strdatabackedup, strbackuploc, strRegistry
Dim strAppName, strAppOwner, strAppVer, strAppVerLCS, strComments, strInstallDate, strVitTick

strComputer = "."

Set objRegistry = GetObject("winmgmts:\\"& strComputer & "\root\default:StdRegProv")

''' Altiris Stuff
'Create instance of Altiris NSE component
set nse = WScript.CreateObject ("Altiris.AeXNSEvent")

' Set the header data of the NSE
' Please don't modify this GUID
nse.To = "{1592B913-72F3-4C36-91D2-D4EDA21D2F96}"
nse.Priority = 1

'Create Inventory data block. The following data class with below guid is already configured on server.
'Brackets are required around the dataclass guid. 
'set objDCInstance = nse.AddDataClass ("{46185858-bb78-44ff-a650-fa6058442ad0}")
set objDCInstance = nse.AddDataClass ("BMS Office 2013")
set objDataClass = nse.AddDataBlock (objDCInstance)
''' End of Altiris Stuff

Set WshShell = CreateObject("WScript.Shell")

strSubKeyPath =  "SOFTWARE\LCSSoftware\Microsoft Office 2013 Standard"

    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strSubKeyPath, "Application Name", strAppName
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strSubKeyPath, "Application Owner", strAppOwner
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strSubKeyPath, "Application Version", strAppVer
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strSubKeyPath, "Application Version - LCS", strAppVerLCS
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strSubKeyPath, "Comments", strComments
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strSubKeyPath, "Installation Date", strInstallDate
    objRegistry.GetStringValue HKEY_LOCAL_MACHINE,strSubKeyPath, "Vitalize Ticket", strVitTick

    'Add a new row
    set objDataRow = objDataClass.AddRow
    'Set columns

   objDataRow.SetField 0, strAppName
   objDataRow.SetField 1, strAppOwner
   objDataRow.SetField 2, strAppVer
   objDataRow.SetField 3, strAppVerLCS
   objDataRow.SetField 4, strComments
   objDataRow.SetField 5, strInstallDate
   objDataRow.SetField 6, strVitTick

   
''' Altiris Stuff
' Send the NSE data to the NS server
nse.SendQueued
''' End of Altiris Stuff
''' End of vbscript main logic