图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 & "\root\cimv2")
首先，定义两个变量objWMIService和strComputer，第一个为我们要创建的服务定位对象，第二个为目标主机IP地址（如果为当前主机者为“.”）。第三句创建一个连接到目标主机的服务对象，定义名字空间参数为“root\cimv2”。在这个名字空间里有我们接下来要用的系统信息。
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里找具体的帮助。
第四步，获取当前系统已经安装的补丁信息。在“root\cimv2”下，实例“Win32_QuickFixEngineering”下的“HotFixID”属性存放了当前系统所安装的补丁信息。
'*******************************************************************
'*读取目标主机已安装补丁列表到字符串strFixedList
'*******************************************************************
Dim colQFE, objQFE
Dim strHotFixID, strFixedList, strFind, strNoFixed
Set colQFE = osvcRemote.ExecQuery("SELECT HotFixID FROM Win32_QuickFixEngineering")
第四步，将读取的用户补丁号存到一数组变量，然后与我们在“第一步“定义的相应数组进行匹配，找出当前系统未安装的补丁号。这部分的实现比较简单，请参考后面的代码。
第五步，显示最后检测结果。
至此，整个补丁检测过程结束，只要将本脚本文件进行点击运行，就可以完成补丁的检查。特别是对于已经在企业中建立起Acitve Directory域的网络管理员来说，只要将此脚本添加到域控制器的组策略里，对每个登陆到域的用户进行补丁检测，提示用户最新补丁信息，再也不用为用户没有安装最新补丁而苦恼了，大大提高了企业内部网络安全管理。