圖1.利用WMI實現補丁檢測之流程圖

       第一步，設置需要檢測的補丁號。我們知道，微軟的每個補丁都會有一個標準的編號（如KB828741），對于最新的補丁，我們可以從微軟的網站上獲得。然后，將希望用戶安裝的補丁號放到一個數組里。根據不同Windows操作系統我們需要設置不同檢測補丁號?；诋斍?FONT face="Times New Roman">Windows系統使用情況，我只對Windows 2000/2003/XP進行檢測。
圖1.利用WMI實現補丁檢測之流程圖
第一步，設置需要檢測的補丁號。我們知道，微軟的每個補丁都會有一個標準的編號（如KB828741），對于最新的補丁，我們可以從微軟的網站上獲得。然后，將希望用戶安裝的補丁號放到一個數組里。根據不同Windows操作系統我們需要設置不同檢測補丁號?；诋斍癢indows系統使用情況，我只對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域的網絡管理員來說，只要將此腳本添加到域控制器的組策略里，對每個登陸到域的用戶進行補丁檢測，提示用戶最新補丁信息，再也不用為用戶沒有安裝最新補丁而苦惱了，大大提高了企業內部網絡安全管理。