运行此脚本会生成一个系统已安装补丁详细信息的htm文件。由于使用Blog那个代码模式复制下来运行会报错，我就直接给贴出来吧。

[code]On Error Resume Next
'技术中国 http://www.mstc.com.cn/
'Made by 付林.
'系统补丁查看
'***********************************************
Set objSession = CreateObject("Microsoft.Update.Session")
Set objSearcher = objSession.CreateUpdateSearcher
intHistoryCount = objSearcher.GetTotalHistoryCount

Set colHistory = objSearcher.QueryHistory(0, intHistoryCount)

if err = 0 then
Wscript.echo "补丁信息文件已经生成！"
else
Wscript.echo "请先正确安装Microsoft.Update.ActiveX组件！"
Wscript.Quit
end if

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFS.CreateTextFile("update.htm")

objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.WriteLine "

补丁信息 -- 当前时间: " & Now() & _
"

" & vbCrLf
objNewFile.WriteLine "技术中国"
objNewFile.WriteLine "碎片技术日志"
objNewFile.WriteLine "

"

For Each objEntry in colHistory

objNewFile.WriteLine "

"
objNewFile.WriteLine _
"

"

objNewFile.WriteLine "

"

objNewFile.WriteLine "

"
objNewFile.WriteLine "

"
Next

objNewFile.WriteLine "

补丁号

" & objEntry.Title & "

安装时间

" & _ objEntry.Date & "

详细描述

" & _ objEntry.Description & "

"
objNewFile.WriteLine ""
objNewFile.WriteLine ""
objNewFile.Close
[/code]