列示出你安装了哪些补丁的脚本
作者：唐伯狼 来源：http://itbbs.pconline.com.cn/
心情不好的时候就四处翻资料看，偶尔发现了一个脚本，原本就是Winmag里的一个，只是搬到我这里时发现怎么也用不了，总是出错，于是手起刀落，改了改，OK了。
其实是非常简单的列示已经安装了的补丁的脚本，执行后在脚本目录下生成一个*.htm文件，以表格的形式显示，很不错，呵呵，不想独享，拿过来给大家玩，希望各位会喜欢，呵呵。
************* 将本行以下部分复制到记事本中，保存为*.vbs文件后执行即可***************
使用脚本列示已经安装过的补丁
及其安装ID、描述、日期及实施者
strComputer = "."
Set objWMIService = GetObject ("winmgmts:{impersonationLevel = impersonate}!\" & strComputer & "ootcimv2")
Set colQuickFixes = objWMIService.ExecQuery(" Select * from Win32_QuickFixEngineering")
Set objFS = CreateObject ("Scripting.FileSystemObject")
Set objNF = objFS.CreateTextFile("InstallHotfixes.htm")
objNF.Writeline "<html>"
objNF.writeline "<head>"
objNF.writeline "<title>InstallHotfixes</title>"
objNF.writeline "</head>"
objNF.writeline "<body>"
objNF.writeline "<h3>Hotfix report -- Date:"&Now()&" </h3>" & vbcrlf
objNF.writeline "<table border = 1 style = font-size:9pt>"
objNF.writeline "<tr>"
objNF.writeline "<td>Computer:</td>"
objNF.writeline "<td>Description:</td>"
objNF.writeline "<td>HotFixID:</td>"
objNF.writeline "<td>Installation Date:</td>"
objNF.writeline "<td>Installed By:</td>"
objNF.writeline "</tr>"
for each objQuickFix in colQuickFixes
objNF.writeline "<tr>"
objNF.writeline "<td> "& objQuickFix.CSName & "</td> "
objNF.writeline "<td> "& objQuickFix.Description &" </td> "
objNF.writeline "<td> "& objQuickFix.HotFixID &" </td>"
objNF.writeline "<td> "& objQuickFix.InstallDate &" </td>"
objNF.writeline "<td> "& objQuickFix.InstalledBy &" </td>"
objNF.writeline "</tr>"
next
objNF.writeline "</table>"
objNF.writeline "</body>"
objNF.writeline "</html>"
objNF.close
set objshell = wscript.createobject("wscript.shell")
objshell.run "InstallHotfixes.htm"
补充：综合编程 , 安全编程 ,
