Windows Updateの状況を取得したい

質問

Windows Updateの状況をExcel VBAより取得したい

試した事
１．WindowsUpdate.logを参照したが、都合の良いキーワードがない
２．Windows Upadteの画面から文字を取得しようとしたが、
　　DirectUIHWNDクラスらしくて、お手上げ

何かヒントをお願いします

回答No.2

oyk3865b3702d3r · ベストアンサー

こんにちは

＞Windows Updateの状況を取得したい
との事でございますが、

http://technet.microsoft.com/ja-jp/scriptcenter/ff595215.aspx
↑こちらのWebページにございます。
「コンピュータの更新を確認する」という項目の情報は、いかがでしょうか?

こちらのページにあるコードを、
私のExcel2003のVBAにそのままコピーして、動作いたしました。

他にも、
http://www.vbforums.com/showthread.php?615352-VB-NET-Windows-Updates
http://blogs.technet.com/b/junichia/archive/2007/09/01/sce-wsus-2.aspx
↑こういったページも、参考になるかもしれませんので、
紹介させていただきます。

以上
ありがとうございました。

参考URL：

http://technet.microsoft.com/ja-jp/scriptcenter/ff595215.aspx

お礼

oyk3865b3702d3さん

コメントありがとうございます。
まさにコレをさがしていました。
少し、検索が足りなかったようです。
本当に助かりました

回答No.1

NotFound404

Win32_QuickFixEngineering で試してみました。

Sub A1()
Dim strComputer As String
Dim objWMIService As Object
Dim Fixes As Object
Dim Fx As Object
Dim prp As Object
Dim i As Long

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set Fixes = objWMIService.ExecQuery( _
"Select * From Win32_QuickFixEngineering")

For Each Fx In Fixes
i = i + 1
For Each prp In Fx.properties_
Debug.Print i, prp.Name, prp.Value
Next
Next
End Sub

ネタ元はこちら
[WMI] PC にインストールされている更新プログラム情報を取るために
WMI "Win32_QuickFixEngineering" を使用しても取得できないものがある
http://blogs.technet.com/b/jpilmblg/archive/2009/04/24/wmi-pc-wmi-win32-quickfixengineering.aspx

Scripting Guy さん、特定の修正プログラムがインストールされているかどうかを確認する方法はありますか
http://gallery.technet.microsoft.com/scriptcenter/3815214b-8da6-4f29-9b32-2e292e6fd1f4

ご参考まで。

お礼

NotFound404さん

コメントありがとうございます
参考になりました