List Installed hotfixes on Windows systems

This script has been tested on Windows XP/7/8/2003/2008/2012.

' List Installed Hot Fixes

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")

Set colQuickFixes = objWMIService.ExecQuery _
    ("Select * from Win32_QuickFixEngineering")

	Wscript.Echo "Computer|Description|Hotfix ID|InstallDate|InstalledBy"
For Each objQuickFix in colQuickFixes
    WScript.Echo objQuickFix.CSName & "|" & objQuickFix.Description & "|" & objQuickFix.HotFixID & "|" & objQuickFix.InstallDate & "|" & objQuickFix.InstalledBy
Next

022213_2242_Justatest1

Wessel van Sandwijk

I am a Technical Specialist – Cloud Infrastructures from the Netherlands.
My Skills are mainly PowerShell, VMWare, Hyper-V, Hitachi UCP CI Advisor, API, Hitachi UCP Director and Security.

I work for a company in Utrecht The Netherlands.

See author's posts

Tags: VBScript