You could simple enumerate the extra registry key and loop through all found keys just like you do already with the first registry key. A simple copy, paste would do the trick as long as you change the registry key in the code you copy and paste so it takes the other registry key.
Doing a simple copy and paste might not be the cleanest way but if you are new to kix it certainly is the easiest way. I also made a few small changes to keep everything readable (break the long lines into several lines) and used a shortcut to get to the registry key (HKLM instead of HKEY_LOCAL_MACHINE).

Something like (untested):
 Code:
Call "\\hbs002592\c$\Netlogon\UDF_Global.kix"
$UpdatesScripts_Loc = "\\hbs002592\c$\Netlogon\"
$LogonLogs = "\\hbs002592\c$\Netlogon\"


;Enumerate keys in HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\
$uninstallkey = "HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\"
$PackageList = Chr(34) + "PC" + Chr(34) + "," + Chr(34) + "Software_Name" + Chr(34) + "," + Chr(34) + "Software_Version" + Chr(34) + "," + Chr(34) + "Software_Publisher" + Chr(34)

$Index = 0
$package = EnumKey($uninstallkey, $Index)
While Not @ERROR
	$SoftwareName = ReadValue($uninstallkey + $package, "Displayname")
	If $SoftwareName <> ""
		If InStr($SoftwareName, "Security Update For") = 0 And InStr($SoftwareName, "Update for Windows XP") = 0
				And InStr($SoftwareName, "Windows XP Hotfix") = 0 And InStr($SoftwareName, "Hotfix for Windows XP") = 0
				And InStr($SoftwareName, "Windows 2000 Hotfix") = 0 And InStr($SoftwareName, "Update for Windows 7") = 0
				And InStr($SoftwareName, "Windows 7 Hotfix") = 0 And InStr($SoftwareName, "Hotfix for Windows 7") = 0
			$SoftwareVersion = "N/A"
			$SoftwareVersion = ReadValue($uninstallkey + $package, "DisplayVersion")
			If $SoftwareVersion = ""
				$SoftwareVersion = "N/A"
			EndIf
			$Publisher = "N/A"
			$Publisher = ReadValue($uninstallkey + $package, "Publisher")
			If $Publisher = ""
				$Publisher = "N/A"
			EndIf
			$PackageList = $PackageList + @CRLF + Chr(34) + @WKSTA + Chr(34) + "," + Chr(34) + $SoftwareName + Chr(34) + "," + Chr(34) + $SoftwareVersion + Chr(34) + "," + Chr(34) + $Publisher + Chr(34)
		EndIf
	EndIf
	$Index = $Index + 1
	$package = EnumKey($uninstallkey, $Index)
Loop

;Enumerate keys in HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages
$uninstallkey = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Component Based Servicing\Packages"

$Index = 0
$package = EnumKey($uninstallkey, $Index)
While Not @ERROR
	$SoftwareName = ReadValue($uninstallkey + $package, "Displayname")
	If $SoftwareName <> ""
		If InStr($SoftwareName, "Security Update For") = 0 And InStr($SoftwareName, "Update for Windows XP") = 0
			And InStr($SoftwareName, "Windows XP Hotfix") = 0 And InStr($SoftwareName, "Hotfix for Windows XP") = 0
			And InStr($SoftwareName, "Windows 2000 Hotfix") = 0 And InStr($SoftwareName, "Update for Windows 7") = 0
			And InStr($SoftwareName, "Windows 7 Hotfix") = 0 And InStr($SoftwareName, "Hotfix for Windows 7") = 0
			$SoftwareVersion = "N/A"
			$SoftwareVersion = ReadValue($uninstallkey + $package, "DisplayVersion")
			If $SoftwareVersion = ""
				$SoftwareVersion = "N/A"
			EndIf
			$Publisher = "N/A"
			$Publisher = ReadValue($uninstallkey + $package, "Publisher")
			If $Publisher = ""
				$Publisher = "N/A"
			EndIf
			$PackageList = $PackageList + @CRLF + Chr(34) + @WKSTA + Chr(34) + "," + Chr(34) + $SoftwareName + Chr(34) + "," + Chr(34) + $SoftwareVersion + Chr(34) + "," + Chr(34) + $Publisher + Chr(34)
		EndIf
	EndIf
	$Index = $Index + 1
	$package = EnumKey($uninstallkey, $Index)
Loop

LogtoFile("ForceOverwrite", $LogonLogs + "Software_Inventory\" + @WKSTA + ".csv", $PackageList)
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.