利用WMI实现系统补丁检测分析_vbs教程-查字典教程网
利用WMI实现系统补丁检测分析
利用WMI实现系统补丁检测分析
发布时间:2016-12-28 来源:查字典编辑
摘要:WMI是Windows2000/XP管理系统的核心;对于其它的Win32操作系统,WMI是一个有用的插件。WMI以CIMOM为基础,CIMO...

WMI是Windows 2000/XP管理系统的核心;对于其它的Win32操作系统,WMI是一个有用的插件。WMI以CIMOM为基础,CIMOM即公共信息模型对象管理器 (Common Information Model Object Manager),是一个描述操作系统构成单元的对象数据库,为MMC和脚本程序提供了一个访问操作系统构成单元的公共接口。Windows 管理规范 (WMI) 是可伸缩的系统管理结构,它采用一个统一的、基于标准的、可扩展的面向对象接口。我在刚开始理解WMI的时候,总以为WMI是“Windows管理接口(Interface)”。

下面我们就详细来了解如何利用WMI实现补丁的检测过程。图1是整个检测过程的流程图。

图1.利用WMI实现补丁检测之流程图

第一步,设置需要检测的补丁号。我们知道,微软的每个补丁都会有一个标准的编号(如KB828741),对于最新的补丁,我们可以从微软的网站上获得。然后,将希望用户安装的补丁号放到一个数组里。根据不同Windows操作系统我们需要设置不同检测补丁号。基于当前Windows系统使用情况,我只对Windows 2000/2003/XP进行检测。

图1.利用WMI实现补丁检测之流程图

第一步,设置需要检测的补丁号。我们知道,微软的每个补丁都会有一个标准的编号(如KB828741),对于最新的补丁,我们可以从微软的网站上获得。然后,将希望用户安装的补丁号放到一个数组里。根据不同Windows操作系统我们需要设置不同检测补丁号。基于当前Windows系统使用情况,我只对Windows 2000/2003/XP进行检测。

‘ 对于windows 2000

arrFixed_WIN2K=Array("KB840315","KB870669","KB828741","KB835732",

"KB840987","KB841356","KB885835","KB885836",

"KB842526","KB841872","KB841873","KB889293")

'对windows 2003系统

arrFixed_WIN2K3=Array("KB834707","KB840374","KB867801","KB833987",

"KB873376","KB885835","KB885836")

'对于windows xp SP1

arrFixed_XP1=Array("KB840987","KB833987","KB839645","KB840315","KB841873","

KB873376","KB841356","KB889293","KB885835","KB885836")

'对于windows xp SP2

arrFixed_XP2=Array("KB834707","KB885835","KB885836")

第二步,创建WMI对象,并和目标主机建立连接。

Dim objWMIService // WMI对象

Dim strComputer = “.” // 地址为当前主机

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")

首先,定义两个变量objWMIService和strComputer,第一个为我们要创建的服务定位对象,第二个为目标主机IP地址(如果为当前主机者为“.”)。第三句创建一个连接到目标主机的服务对象,定义名字空间参数为“rootcimv2”。在这个名字空间里有我们接下来要用的系统信息。

Socket:详细代码请看光盘附送的Check_patch.txt,更改文件扩展名txt为VBS,在Windows下可双击运行,如果当前系统检测出未打补丁,则出现提示窗口,否则无。

第三步,读取当前用户操作系统信息,及其安装补丁的情况。在名字空间“root/cimv2”下,实例“Win32_OperatingSystem”为我们提供了详细的当前操作系统信息。我们采用Wql(sql for WMI)来读取该实例,熟悉SQL语法的朋友一看就知道是在做什么了。

' 先判断主机系统信息:OS,SP补丁版本情况

' 获取系统信息

Dim objOSInfo // 获取操作系统信息

Dim intOSver,intOStype,intCurrentSP // 当前系统版本,类型,Service Pack号

Set objOSInfo = osvcRemote.ExecQuery("Select ServicePackMajorVersion,Version,OSType FROM Win32_OperatingSystem")

For Each colOSInfo In objOSInfo

intCurrentSP = colOSInfo.ServicePackMajorVersion ‘sp安全补丁版本

intOSver = colOSInfo.Version ‘操作系统版本号

intOStype = colOSInfo.OSType ‘操作系统类型

Next

Socket:如何知道要连接哪个名字空间,获得哪些对象呢?《WMI技术指南》[3]中分类列出了大量常用的对象。可惜它没有相应的电子书,你只有到书店里找它了。你也可以用WMITools里WMI CIM Studio这个工具的搜索功能,很容易就能找想要的对象。找到对象后,WMI CIM Studio能列出其属性和方法,然后到MSDN里找具体的帮助。

第四步,获取当前系统已经安装的补丁信息。在“rootcimv2”下,实例“Win32_QuickFixEngineering”下的“HotFixID”属性存放了当前系统所安装的补丁信息。

'*******************************************************************

'*读取目标主机已安装补丁列表到字符串strFixedList

'*******************************************************************

Dim colQFE, objQFE

Dim strHotFixID, strFixedList, strFind, strNoFixed

Set colQFE = osvcRemote.ExecQuery("SELECT HotFixID FROM Win32_QuickFixEngineering")

第四步,将读取的用户补丁号存到一数组变量,然后与我们在“第一步“定义的相应数组进行匹配,找出当前系统未安装的补丁号。这部分的实现比较简单,请参考后面的代码。

第五步,显示最后检测结果。

至此,整个补丁检测过程结束,只要将本脚本文件进行点击运行,就可以完成补丁的检查。特别是对于已经在企业中建立起Acitve Directory域的网络管理员来说,只要将此脚本添加到域控制器的组策略里,对每个登陆到域的用户进行补丁检测,提示用户最新补丁信息,再也不用为用户没有安装最新补丁而苦恼了,大大提高了企业内部网络安全管理。

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