最近想寫個自動安裝WINDOWS UPDATE的程式，目前卡在不知道怎麼取得已經安裝過的清單，請問有人曾經解決過這個問題嗎?

參考一下：
http://www.programmer-club.com/pc2020v5/forum/ShowSameTitleN.asp?URL=N&board_pc2020=win2kpro&id=522
http://www.vbaexpress.com/kb/getarticle.php?kb_id=806
http://www.microsoft.com/technet/community/columns/scripts/default.mspx
<textarea class="vb" rows="10" cols="60" name="code">Set objSession = CreateObject("Microsoft.Update.Session") Set objSearcher = objSession.CreateUpdateSearcher intHistoryCount = objSearcher.GetTotalHistoryCount Set colHistory = objSearcher.QueryHistory(0, intHistoryCount) For Each objEntry in colHistory Wscript.Echo "Title: " & objEntry.Title Wscript.Echo "Description: " & objEntry.Description Wscript.Echo "Update application date: " & objEntry.Date Select Case objEntry.Operation Case 1 Wscript.Echo "Operation type: Installation" Case 2 Wscript.Echo "Operation type: Uninstallation" Case Else Wscript.Echo "The operation type could not be determined." End Select Select Case objEntry.ResultCode Case 0 Wscript.Echo "Operation result: The operation has not started." Case 1 Wscript.Echo "Operation result: The operation is in progress." Case 2 Wscript.Echo "Operation result: The operation completed successfully." Case 3 Wscript.Echo "Operation result: The operation completed, but one or more errors occurred " & _ "during the operation and the results are potentially incomplete." Case 4 Wscript.Echo "Operation result: The operation failed to complete." Case 5 Wscript.Echo "Operation result: The operation was aborted." Case Else Wscript.Echo "The operation result could not be determined." End Select Set objIdentity = objEntry.UpdateIdentity Wscript.Echo "Update ID: " & objIdentity.UpdateID Wscript.Echo Next </textarea><br />
Fishman

------
Fishman