通过wmi检测系统补丁输出问题？【已解决】

tianya1631 · 发表于 2010-4-10 23:49:38

本帖最后由 tianya1631 于 2010-4-11 11:35 编辑

下面是通过wmi获取系统已安装补丁的代码，现在问题是这样的：
当$objItem.HotFixID = file 1 时 $objItem.ServicePackInEffec = kbxxxxxx
当$objItem.HotFixID = kbxxxxxx 时 $objItem.ServicePackInEffec = spxxx
我怎么让他全部生成kbxxxxxx写入到记事本中，谢谢了！PS:我的粗心和理解错误，没有把问题表述清楚，在此谢谢afan版主的热心帮助。

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
Global $kb = '',$id = ''

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$objWMIService = ObjGet("winmgmts:\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_QuickFixEngineering", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
      
     $ID = $ID&' '& $objItem.HotFixID &@CRLF
     $kb = $kb&' '& $objItem.ServicePackInEffect &@CRLF
         
 Next
 ;MsgBox(0,'',$ID)
;MsgBox(0,'',$kb)
 FileWriteLine('fix.txt',$ID&@CRLF)
;FileWriteLine('fix.txt',$kb&@CRLF)
 
Else
   Msgbox(0,"WMI 输出","No WMI Objects Found for class: " & "Win32_QuickFixEngineering" )
Endif

afan · 发表于 2010-4-11 00:06:16

你是只要 kbxxxxxx ，其它的不要还是？我咋看得这么晕

tianya1631 · 发表于 2010-4-11 00:12:07

本帖最后由 tianya1631 于 2010-4-11 00:15 编辑

回复 2# afan

呵呵，我只要KbXXXX补丁名称，现在就是怎么能把显示的file 1 也显示对应的kbXXXX名称。

afan · 发表于 2010-4-11 00:14:51

file 1 与 KbXXXX 既是对应关系，你还转 file 1 干什么呢，只取KbXXXX不就完了

tianya1631 · 发表于 2010-4-11 00:21:23

回复 4# afan
因为有2种情况存在：
1.当$objItem.HotFixID = file 1 时其对应的 $objItem.ServicePackInEffec = kbxxxxxx
2. 当$objItem.HotFixID = kbxxxxxx 时其对应的 $objItem.ServicePackInEffec = spxxx
怎么让他全部都输出kbxxxxxx ，中间应该要加个判断，就是不知道怎么去加

下面是源wmi代码：

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer  & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_QuickFixEngineering", "WQL", _
                                          $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
   For $objItem In $colItems
    
           $Output = $Output & "HotFixID: " & $objItem.HotFixID & @CRLF
           $Output = $Output & "ServicePackInEffect: " & $objItem.ServicePackInEffect & @CRLF
            if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
      $Output=""
   Next
Else
   Msgbox(0,"WMI 输出","No WMI Objects Found for class: " & "Win32_QuickFixEngineering" )
Endif

afan · 发表于 2010-4-11 00:32:36

素这个意思？

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.HotFixID & @CRLF
        Next
        FileWrite('fix.txt', $id & @CRLF)
Else
        MsgBox(0, "WMI 输出", "No WMI Objects Found for class: " & "Win32_QuickFixEngineering")
EndIf

tianya1631 · 发表于 2010-4-11 00:52:27

回复 6# afan
你这个也是只能获取一部分 file 1对应的kbxxxx没有获取到。可能还是我没有描述清楚，$objItem.HotFixID和$objItem.ServicePackInEffect都能获取到相同数量的补丁，是对应的，但都获取不全kbxxxx，要把2个获取到的互补取，才能得到完整的kbxxxx。

下面图片是各自获取到的值，之间是对应关系。搞的头都晕了。。。

afan · 发表于 2010-4-11 01:09:11

回复 7# tianya1631

你再仔细对对，应该是全的，可能顺序不一样，你可以核对无重复的总数。

tianya1631 · 发表于 2010-4-11 01:22:42

回复 8# afan

核对过了，还是不全的，获取到的只是$objItem.HotFixID获取的kbxxxx,而当$objItem.HotFixID
获取到的值为file 1时，其对应的$objItem.ServicePackInEffect获取到的kbxxxx，没有输出来。

afan · 发表于 2010-4-11 01:26:27

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

tianya1631 · 发表于 2010-4-11 01:30:49

回复 10# afan

实在不好意思，我又仔细的核对一遍，我发现我错了，原来他们两个获取到的是有重复的，不是一一对应的关系。麻烦Afan版主了。

chaowei0594 · 发表于 2010-4-11 08:06:22

感谢Afan版本

masterpcc · 发表于 2010-4-11 09:53:13

谢谢分享！！

lsszmj · 发表于 2012-7-19 17:37:46

学习中，谢谢哈

		自动登录	找回密码
密码			加入

[AU3基础] 通过wmi检测系统补丁输出问题？【已解决】

评分

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源