注册
登录
| 关键词： Writeline objNF objQuickFix nbsp 脚本 InstallHotfixes Set 一个 objWMIService colQuickFixes |
作者：唐伯狼 来源：http://itbbs.pconline.com.cn/ 心情不好的时候就四处翻资料看，偶尔发现了一个脚本，原本就是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" |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
