'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