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