質問する

フォーラムを検索:

• Microsoft TechNet フォーラム全体の検索

 

VISTAでインストールされた更新プログラムの出力方法

• 2009年6月22日 1:10Geo Neeliyara

   
  

  0

  サインインして投票

  こんにちは
  
  インストールされた更新プログラムの出力方法を教えっていただけないでしょうか？
  
  -------------------------------------------------------------------------------------------------------------------------------------------
  
  私は一旦QuickFixEngineeringを使用してやりましたがでもQuickFixEngineeringオブジェクットのDescriptionはインストールされた更新プログラムリストの名前と一致してない。
  
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colItems = objWMIService.ExecQuery("Select * from Win32_QuickFixEngineering",,48)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
   
  '一覧ファイルの削除
  if objFSO.FileExists(outputPath & "PrgList.txt") then
   objFSO.DeleteFile outputPath & "PrgList.txt",True
  end if

  Set filePrgList = objFSO.CreateTextFile(outputPath & "PrgList.txt", True)

  For Each objItem in colItems
      filePrgList.WriteLine("Caption: " & objItem.Description)
  Next

  filePrgList.close

  Set filePrgList = nothing
  Set objFSO = nothing

  MsgBox "完了"
  
  ----------------------------------------------------------------------------------------------------------------------------------------------次更新履歴を使ってやりました。でも更新履歴のDescriptionもインストールされた更新プログラムの名前と一致しませんでした。
  
  Set objSession = CreateObject("Microsoft.Update.Session")
  Set objSearcher = objSession.CreateUpdateSearcher
  intHistoryCount = objSearcher.GetTotalHistoryCount

  Set colHistory = objSearcher.QueryHistory(1, intHistoryCount)

  For Each objEntry in colHistory
    
    Wscript.Echo "Description: " & objEntry.Description
     
  Next
  
  ---------------------------------------------------------------------------------------------------------------------------------------
  
  インストールされた更新プログラム情報をそのまま受け取りたいですがやり方を教えっていただけないでしょうか？
  
  宜しくお願いします。

  • 編集済みGeo Neeliyara 2009年6月22日 2:07
  •  
  • 返信
  • 引用