Program som gör lista på instalerade program till .txt

Option Explicit

Dim objWMIService, objItem, colItems, item

Dim fso
Dim fileOutput
Dim QFEs
Dim strOutput
Dim QFE
Dim objNetwork

Set objNetwork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
set fileOutput = fso.CreateTextFile("D:\" & objNetwork.ComputerName & " (" & objNetwork.UserName & ").txt",true,false)

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")    
Set QFEs = objWMIService.ExecQuery ("Select * from win32_QuickFixEngineering")

For Each QFE in QFEs
    if QFE.Description <> "" then
        strOutput = strOutput & QFE.Description  & Chr(9) & QFE.HotFixID & Chr(13) & Chr(10)
    end if
Next

strOutput = strOutput & Chr(13) & Chr(10)

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32Reg_AddRemovePrograms")
For Each objItem in colItems
    If objItem.DisplayName <> "" Then
        If Instr(UCase(strOutput), UCase(objItem.DisplayName)) = 0 Then
            strOutput = strOutput & objItem.DisplayName & Chr(9) & objItem.Publisher & Chr(9) & objItem.Version & Chr(13) & Chr(10)
        End If
    End If
Next

fileOutput.WriteLine(strOutPut)