On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set objCIMObj = objWMIService.ExecQuery("SELECT * FROM Win32_QuickFixEngineering",,48)
'Create instance of Altiris NSE component
dim nse
set nse = WScript.CreateObject ("Altiris.AeXNSEvent")
nse.To = "{1592B913-72F3-4C36-91D2-D4EDA21D2F96}"
nse.Priority = 1
dim objDCInstance
set objDCInstance = nse.AddDataClass ("MS_QFE")
'set objDCInstance = nse.AddDataClass ("{aa294d41-d56c-42f4-9bd2-ab5373d8363d}")
dim objDataClass
set objDataClass = nse.AddDataBlock (objDCInstance)
'Populate the NSE file with desired data
For Each objInfo in objCIMObj
'Add a new row for each update on the computer
Dim objDataRow
set objDataRow = objDataClass.AddRow
objDataRow.SetField 0, objInfo.Caption
objDataRow.SetField 1, objInfo.Description
objDataRow.SetField 2, objInfo.HotFixID
objDataRow.SetField 3, objInfo.InstalledBy
objDataRow.SetField 4, objInfo.InstalledOn
Next
nse.SendQueued
SELECT vComputer.[Name]
,QFE.Caption
,QFE.[Description]
,QFE.HotFixID
,QFE.InstalledOn
,QFE.InstalledBy
FROM Inv_MS_QFE QFE
LEFT JOIN vComputer
ON vComputer.[Guid] = QFE.[_ResourceGuid]
ORDER BY vComputer.[Name] ASC, QFE.[HotFixID] ASC