quote:

---

If anyone is interested I'll post my code for parsing the software inventory files and then adding the data to the DB.

---

code:

---

Break on
Function Software(optional $Computer,optional $LogPath)
If $computer = "" $computer = @wksta EndIf
Dim $programs
Dim $Subkeys
$index = 0
While @error = 0
	ReDim preserve $subkeys[Ubound($subkeys)+1]
	$index = $index+1
	$subkeys[Ubound($subkeys)] = EnumKey("\\$Computer\HKLM\SOFTWARE\
	Microsoft\Windows\CurrentVersion\Uninstall",$index)
Loop
$nul = ReDirectOutput ("$logpath$computer.log",1)
For Each $key in $subkeys
	$Displayname = ReadValue ("\\$Computer\HKLM\SOFTWARE\Microsoft\
	Windows\CurrentVersion\Uninstall\$key","Displayname")
	If $Displayname <> ""
		ReDim preserve $programs[Ubound ($programs)+1]
		$programs[Ubound($programs)] = $Displayname
	EndIf
Next
join($programs,"~*~")
$nul = ReDirectOutput("")
EndFunction

---

code:

---

$=SetOption("WrapAtEOL","On")
$DATABASE = "\\yourcomputer\loggs\inventory.mdb";"
$DSN="Driver={Microsoft Access Driver (*.mdb)}; DBQ=$DATABASE"
$Connection = CreateObject("ADODB.Connection")
$Command = CreateObject("ADODB.Command")
$Recordset = CreateObject("ADODB.Recordset")
If $Connection 
? "Connected"
	$Connection.ConnectionString = $DSN
	$Connection.Open()
	$Command.ActiveConnection = $Connection
	$Recordset.CursorType = 3
	$Recordset.LockType = 3
	$Recordset.ActiveCommand = $Command
	
	$loggpath = "\\yourcomputer\loggs"
	$file = Dir("$loggPath\*.log")
	While $file <> "" AND @error = 0
		$computer = SubStr($file,1,InStr($file,".log")-1)
		$nul = Open(1,"$loggpath\$file") If @error <> 0 ?@serror Exit EndIf
		$ProgArray = ReadLine(1) If @error <> 0 ?@serror Gosub End EndIf 
		$ProgArray = Split($ProgArray,"~*~")
		For Each $program in $ProgArray
			$CHECK_ENTRY_PROGRAM = "SELECT * FROM TBL_PROGRAM WHERE COMPUTER=
			'$computer' AND PROGRAM='$program';"
			$Command.CommandText = $CHECK_ENTRY_PROGRAM 
			$Recordset.Open($Command) 
			If $Recordset.RecordCount < 1
				? "adding new entry record $program"
				$Recordset.AddNew ?@SERROR
				$Recordset.Fields("Computer").Value = "$computer" ?@SERROR
				$Recordset.Fields("Program").Value = "$program" ?@SERROR
			EndIf
			$Recordset.Update
			$Recordset.Close()
		Next
		?"$computer Completed Sucussfully"
		:End
		$nul=Close(1)
		$file = Dir()
	Loop
	$Connection.Close()
	$Connection = 0
	$Recordset = 0
	$Command = 0
Else
	Goto error
EndIf			
:end
Exit 321
:error
Exit

---