wmi - Service Pack のリストを取得するための WMI クエリ

Question

WMI を使用して、Windows 2000 マシンにインストールされているサービス パックを見つけることはできますか?

Answer 1

WMI を使用してインストールされたソフトウェアを取得する方法が提案されています - すべてのソフトウェアが表示されるわけではありませんが...

1）試してみて、それらがまったく表示されるかどうかを確認してください

2) 例を調整して結果をフィルタリングし、サービス パックのみが表示されるようにします。

strHost = "."
Const HKLM = &H80000002
Set objReg = GetObject("winmgmts://" & strHost & _
    "/root/default:StdRegProv")
Const strBaseKey = _
    "Software\Microsoft\Windows\CurrentVersion\Uninstall\"
objReg.EnumKey HKLM, strBaseKey, arrSubKeys
For Each strSubKey In arrSubKeys
    intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _
        "DisplayName", strValue)
    If intRet <> 0 Then
        intRet = objReg.GetStringValue(HKLM, strBaseKey & strSubKey, _
        "QuietDisplayName", strValue)
    End If
    If (strValue <> "") and (intRet = 0) Then
        WScript.Echo strValue
    End If
Next