Filtering Installed Applications

[colmite]

Hi there,

I was wondering if some one could help me out as I have been searching and searching but just cant seem to find the answer :-(

I am using the following script to pull installed applications. The problem is I just want to know what software is installed for auditing purposes so I want to be able to filter out windows hotfixes, ibm installed software and such. basically I want to create filters that will only give me software that will require us to license.

*********************
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:\install\software.txt", True)

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strComputer = "."
strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal l\"
strEntry1a = "DisplayName"

Set objReg = GetObject("winmgmts://" & strComputer & "/root/default:StdRegProv")
objReg.EnumKey HKLM, strKey, arrSubkeys
For Each strSubkey In arrSubkeys
intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, strEntry1a, strValue1)
If strValue1 <> "" Then
objTextFile.WriteLine strValue1
End If
Next
******************

Any help would be greatly appreciated.

thanks