关于office的Security Patch

beartony

看了论坛里帖子关于系统补丁检测的。也比较实用。比如版主的一下coding
Dim $colItems, $strComputer = "localhost", $id
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_QuickFixEngineering", "WQL", 0x10 + 0x20)
If IsObj($colItems) Then
        For $objItem In $colItems
                If $objItem.HotFixID = 'File 1' Then
                        $id &= $objItem.ServicePackInEffect & @CRLF
                        Assign('_' & $objItem.ServicePackInEffect, 0)
                ElseIf Not IsDeclared('_' & $objItem.HotFixID) Then
                        $id &= $objItem.HotFixID & @CRLF
                EndIf
        Next
        FileWrite('fix.txt', $id & @CRLF)
Else
        MsgBox(0, "WMI 输出", "No WMI Objects Found for class: " & "Win32_QuickFixEngineering")
EndIf

但是发现这个命令只能检测windows 的补丁。那么Microsoft Office 的patch好像没有办法检测出来，还望高手指点！

beartony

(⊙o⊙)…还是没有思路啊……换了好几个方式都读不出来……