カスタム検索
その他

インストールされているHotFixを列挙する(VBS)

インストールされているHotFixを列挙するVBScriptです。
参考:Win32_QuickFixEngineering Class
http://msdn.microsoft.com/en-us/library/aa394391(VS.85).aspx

Option Explicit

Dim QFE
Dim QFESet

Set QFESet = CreateObject("WbemScripting.SWbemLocator") _
             .ConnectServer.ExecQuery("Select * from Win32_QuickFixEngineering")
For Each QFE In QFESet
  On Error Resume Next
  With QFE
    Wscript.Echo "Caption:" & .Caption
    Wscript.Echo "CSName:" & .CSName
    Wscript.Echo "Description:" & .Description
    Wscript.Echo "FixComments:" & .FixComments
    Wscript.Echo "HotFixID:" & .HotFixID
    Wscript.Echo "InstallDate:" & .InstallDate
    Wscript.Echo "InstalledBy:" & .InstalledBy
    Wscript.Echo "InstalledOn:" & .InstalledOn
    Wscript.Echo "Name:" & .Name
    Wscript.Echo "ServicePackInEffect:" & .ServicePackInEffect
    Wscript.Echo "Status:" & .Status
    Wscript.Echo vbLf
  End With
  On Error Goto 0
Next
Set QFESet = Nothing

※ 上記スクリプトではMicrosoft Windows Installer(MSI)やWindowsアップデート(http://update.microsoft.com)によって適用されたアップデートは取得できません。
※ Win32_QuickFixEngineeringで取得できるアップデートは以下のレジストリに登録されているものだけになります。

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Hotfix
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates