用vbs实现确定是否安装了某个特定的补丁_vbs教程-查字典教程网
用vbs实现确定是否安装了某个特定的补丁
用vbs实现确定是否安装了某个特定的补丁
发布时间:2016-12-28 来源:查字典编辑
摘要:问:您好,脚本专家!如何使用脚本来确定是否安装了某个特定的补丁?--GM答:您好,GM。您知道,不久以前这个问题可能被我们“不小心”扔进了废...

问:

您好,脚本专家!如何使用脚本来确定是否安装了某个特定的补丁?

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

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新vbs学习
    热门vbs学习
    脚本专栏子分类