HotfixChecker

HotfixChecker dient dazu auf der Befehlszeile prüfen zu können, ob ein bestimmtes Hotfix installiert ist. Das ist insbesondere bei auf der Kommandozeile basierenden Installationsskripten recht nützlich.

Eigentlich stecken dahinter nur ein paar Zeilen Code - das essentielle daran ist folgendes Modul:

Modul CheckHotfix

Imports System.Management Module CheckHotfix      Public Function GetHotFixes() As ArrayList         Dim myArraylist As New ArrayList         Dim ObjSearcher As New ManagementObjectSearcher("SELECT HotFixID FROM Win32_QuickFixEngineering")         Dim collection = ObjSearcher.Get()          For Each obj In collection              Try                 myArraylist.Add(obj("HotFixID").ToString())             Catch ex As Exception                 Console.WriteLine("Query Failed")             End Try          Next         Return myArraylist     End Function      Public Function CheckHotfix(ByVal sHotfix As String, Optional ByVal bpartial As Boolean = False) As Boolean         Dim myHotfixList As ArrayList = GetHotFixes()         If bpartial = False Then             Return myHotfixList.Contains(sHotfix)         Else             For Each element As String In myHotfixList                 If element.Contains(sHotfix) = True Then                     Return True                 End If             Next         End If         Return False     End FunctionEnd Module