快速业务通道

用vbs实现确定是否安装了某个特定的补丁

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
问:
您好,脚本专家!如何使用脚本来确定是否安装了某个特定的补丁?

--GM

答:
您好,GM。您知道,不久以前这个问题可能被我们“不小心”扔进了废纸篓并且假装从未看到。为什么?嗯,以前的时候,我们获得关于补丁、快速修复和其他更新的信息的唯一方法就是使用WMI类Win32_QuickFixEngineering。这样挺好的,但是由于各种原因,Win32_QuickFixEngineering偶尔会丢失确实已经安装了的补丁;更糟糕的是,在Windows2000计算机上,Win32_QuickFixEngineering有时会处于待命状态,而不返回任何信息。(如何解决这一问题?当然是指通过安装补丁来解决。)无论如何都不能算一件好事。

但是,那些日子都过去了。现在,多亏具有重大改进的新WindowsUpdate服务,要确定计算机上已安装了和尚未安装哪些更新非常容易。例如,以下脚本可以告诉我们计算机上是否已安装了补丁SecurityUpdateforWindowsXP(KB899587):

SetobjSession=CreateObject("Microsoft.Update.Session")
SetobjSearcher=objSession.CreateUpdateSearcher
SetobjResults=objSearcher.Search("Type=''Software''")
SetcolUpdates=objResults.Updates

Fori=0tocolUpdates.Count-1
IfcolUpdates.Item(i).Title=_
"SecurityUpdateforWindowsXP(KB899587)"Then
IfcolUpdates.Item(i).IsInstalled<>0Then
Wscript.Echo"Thisupdateisinstalled."
Wscript.Quit
Else
Wscript.Echo"Thisupdateisnotinstalled."
Wscript.Quit
EndIf
EndIf
Next

Wscript.Echo"Thisupdateisnotinstalled."

我们将不详细介绍每一行代码,解释WindowsUpdate服务的详细情况有点超出了本专栏的范围。如果您想了解有关WindowsUpdate(尤其是诸如Microsoft.Update.Session之类的对象)的详细信息,请参阅我们的“脚本故事”专栏中的我要得到你,我的美人…并且我们也要管理WindowsUpdate啦!

但是,我们会发现,尽管有Search方法,但我们并不是真的搜索某个具体的更新。搜索意味着只去查找所需的项,其精确度是极低的。因此我们不能真的那样做。相反,我们在此要做的是返回所有更新的集合,然后筛选整个集合,查找标题为SecurityUpdateforWindowsXP(KB899587)的更新。最终结果是一样的,但是我们达到这一最终结果的过程稍有不同。

不,没有什么不同。就您想了解的内容而言。

那么,我们在此采用的过程是什么?嗯,首先使用下面四行代码来检索本地计算机的更新集合:

SetobjSession=CreateObject("Microsoft.Update.Session")
SetobjSearcher=objSession.CreateUpdateSearcherSet
objResults=objSearcher.Search("Type=''Software''")
SetcolUpdates=objResults.Updates

注意:是的,此脚本可针对远程计算机运行。有关详细信息,请参阅脚本故事专栏。


检索该集合之后,设置一个ForNext循环以遍历所有项。在该循环内,使用下面一行代码来确定更新的“标题”是否为SecurityUpdateforWindowsXP(KB899587):

IfcolUpdates.Item(i).Title=_
"SecurityUpdateforWindowsXP(KB899587)"Then

我们假定“标题”是SecurityUpdateforWindowsXP(KB899587)。在这种情况下,接下来要检查IsInstalled属性的值。如果IsInstalled等于0,则表示实际没有安装该更新(可能安装失败了,也可能安装了该更新但后来又删除了)。如果IsInstalled不等于0,则表示已经安装了该更新。检查该值,然后回显相应的消息:

IfcolUpdates.Item(i).IsInstalled<>0Then
Wscript.Echo"Thisupdateisinstalled."
Wscript.Quit
Else
Wscript.Echo"Thisupdateisnotinstalled."
Wscript.Quit
EndIf

您会发现,回显消息之后,我们就会终止该脚本。为什么?嗯,更新标题是唯一的:既然我们已经找到了要查找的更新,就无需继续遍历剩下的集合了。因此,我们也就终止了脚本,并回到我们的生活中。

如果“标题”不是SecurityUpdateforWindowsXP(KB899587)怎么办?在这种情况下,我们只要进入下一轮循环并检查集合中的下一项即可。如果我们确实再也找不到具有指定标题的更新,则最终会退出该循环,然后执行最后一行代码,仅报告没有安装该更新。

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号