Hallo, thanks for the help, heres a little update.

I trashed the inventory file, and focused on a db connection.

It became a little mix between diffrent authors, thanks to shawn, radimus sealeapard and others.

The bit we were discussing here about installed programs, work out finally

code:
; Installed Programs

Function GetUninstallInfo()
	dim $Index, $Key, $RC, $Value, $RootKey
	dim $progs[0]
	$Index = 0

	$RootKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

	$Key = EnumKey($RootKey, $Index)
	While @Error = 0
		ReDim PRESERVE $progs[$Index]
		$RC = EnumValue($RootKey + $Key, 1)
		If @Error = 0
			$Value = ReadValue($RootKey + $Key, "DisplayName")
			If $Value = ""
				$Value = ReadValue($RootKey + $Key, "QuietDisplayName")
				If $Value = ""
					$Value = $Key
				EndIf
			EndIf
		Else
			$Value = $Key
		EndIf
		$progs[$Index] = $Value
		$Index = $Index + 1
		$Key = EnumKey($RootKey, $Index)
	Loop
	$GetUninstallInfo = $progs
EndFunction

$array = GetUninstallInfo()
$i=0
$divider = ","
for each $item in $array
	$ProgramInfo = $ProgramInfo + $item
	$Programinfo = $Programinfo + $divider
	$i = $i +1
next  

$Recordset.Fields("Program").value = $programinfo
tricky with the "," bit but finally...

regards
\erik