上一篇：电脑特技与虚拟演员—计算机蜜罐技术 >>

列示出你安装了哪些补丁的脚本

心情不好的时候就四处翻资料看，偶尔发现了一个脚本，原本就是winmag里的一个，只是搬到我这里时发现怎么也用不了，总是出错，于是手起刀落，改了改，ok了。

　其实是非常简单的列示已经安装了的补丁的脚本，执行后在脚本目录下生成一个*.htm文件，以表格的形式显示，很不错，呵呵，不想独享，拿过来给大家玩，希望各位会喜欢，呵呵。

*************　将本行以下部分复制到记事本中，保存为*.vbs文件后执行即可***************

' 使用脚本列示已经安装过的补丁
' 及其安装id、描述、日期及实施者
strcomputer = "."
set objwmiservice = getobject ("winmgmts:{impersonationlevel = impersonate}!\\" & strcomputer & "\root\cimv2")
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"

（）

返回顶部

下一篇：CT版奇迹SF终极防黑手册 >>