October 23, 2021

USEFUL-IT

A blog for USEFUL-IT information

List Installed hotfixes on Windows systems

vbscriptList 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