'v5.A*****************************************************
' File:   patchlist.vbs
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
'
' Listet die installierten MS-Patches.
'
'*********************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim fso         : Set fso       = WScript.CreateObject("Scripting.FileSystemObject")
Dim WSHShell    : Set WSHShell  = WScript.CreateObject("WScript.Shell")
Dim WSHNet      : Set WSHNet    = WScript.CreateObject("WScript.Network")
Dim WshSysEnv   : Set WshSysEnv = WshShell.Environment("Process")

Dim objWMIService, colItems, objItem, i

Dim ZielDatei   : ZielDatei     = WshSysEnv("SYSTEMROOT") & "\System32\Logs\" & WshNet.ComputerName & " Patchlist.txt" 
                  ZielDatei     = WshShell.Environment("Process")("Temp")  &  "\" & WshNet.ComputerName & " Patchlist.txt" 

Dim FileOut     : Set FileOut = fso.OpenTextFile( ZielDatei, 8, true) ' 2: immer anlegen

FileOut.WriteLine( vbCRLF & """" & ZielDatei & """ wird ermittelt am " & Now() )

' On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering",,48)

For Each objItem in colItems
  If Len ( objItem.ServicePackInEffect ) > 5 Then i=i+1 :       FileOut.WriteLine( i & vbTab & objItem.ServicePackInEffect )
Next

FileOut.WriteLine( """" & ZielDatei & """ wurde ermittelt am " & Now() )

FileOut.Close
Set FileOut = nothing

WSHShell.Run "Notepad " & ZielDatei