TestComplete Tip: How To Verify and Log Windows Hot Fixes

Was XP SP2 installed when you spotted that bug?
Was the latest Microsoft security patch on the PC that logged the problem when it logged the problem a week ago?
Does the new build of the tested app require a .NET framework service pack?

Here's a VBscript class to log and verify Windows Hot Fixes you can use help with all of those questions.

The routine LogAll adds a list of all installed hot fixes to the remark field in a log message.
You can use it when reviewing a log to determine what patches Windows had installed.

The function Verify(hotfixid) will return true if the string in hotfixid matches an installed patch. For
example, XP Service Pack 2 has hot fix id of "KB811113", you can check for XP SP2 with the call Verify("KB811113").

The example code works as is. Paste this code into a new VBscript project to see it in action.

Also, the WindowsHotFixes class is reusable. You can add it to a new file like 'WindowsHotFixesClass' and include
the file in your project using 'USEUNIT WindowsHotFixesClass then just add a few lines to create a new instance
as demonstrated in the routine TestWindowsHotFixesClass.

'[TestComplete VBscript]<br />Sub Main<br />TestWindowsHotFixesClass<br />End Sub<br />Sub TestWindowsHotFixesClass<br />Dim hotfixes<br />' Create a new WindowsHotFixes obj<br />Set hotfixes = New WindowsHotFixes<br />' Add a list of all installed hot fixes to the log<br />hotfixes.LogAll<br />' Check if Windows XP service pack 2 is installed<br />if hotfixes.Verify("KB811113") then<br />Log.Message("XP SP 2 Verified")<br />else<br />Log.Error("XP SP 2 Not Found")<br />end if<br />End Sub<br />' WindowsHotFixes class<br />' Log and verify Windows Hot Fixes<br />' Paste into your script or save as a<br />' separate file and use USEUNIT to include<br />Class WindowsHotFixes<br />Private colQuickFixes<br />Private Sub Class_Initialize()<br />Set objWMIService = GetObject("winmgmts:" _<br />& "{impersonationLevel=impersonate}!\.<br />ootcimv2")<br />Set colQuickFixes = objWMIService.ExecQuery _<br />("Select * from Win32_QuickFixEngineering")<br />End Sub<br />' Add a list of all hot fixes to the log<br />Public Sub LogAll<br />s="Installed Windows Hot Fixes:" & vbcrlf<br />For Each objQuickFix in colQuickFixes<br />if (objQuickFix.Description <> "") then<br />s = s & objQuickFix.HotFixID & ": "<br />s = s & objQuickFix.Description<br />if ( objQuickFix.InstallDate <> "") then<br />s = s & " Date: " & objQuickFix.InstallDate<br />end if<br />s = s & vbcrlf<br />end if<br />Next<br />' Put the long list of hot fixes in the remarks field<br />Log.Message "Installed Windows HotFixes", s<br />End Sub<br />' Return true if the hot fix in the parameter string hofixid is<br />' installed, return false if not<br />Public Function Verify(hotfixid)<br />For Each objQuickFix in colQuickFixes<br />if objQuickFix.HotFixID = hotfixid then<br />Verify = true<br />exit For<br />end if<br />Next<br />End Function<br />End Class<br />