トップページ > その他 > インストールされているHotFixを列挙する(VBS)

インストールされている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

トップページ > その他 > インストールされているHotFixを列挙する(VBS)