圖1.利用WMI實現(xiàn)補丁檢測之流程圖

       第一步，設(shè)置需要檢測的補丁號。我們知道，微軟的每個補丁都會有一個標準的編號（如KB828741），對于最新的補丁，我們可以從微軟的網(wǎng)站上獲得。然后，將希望用戶安裝的補丁號放到一個數(shù)組里。根據(jù)不同Windows操作系統(tǒng)我們需要設(shè)置不同檢測補丁號?；诋?dāng)前Windows系統(tǒng)使用情況，我只對Windows 2000/2003/XP進行檢測。
圖1.利用WMI實現(xiàn)補丁檢測之流程圖
第一步，設(shè)置需要檢測的補丁號。我們知道，微軟的每個補丁都會有一個標準的編號（如KB828741），對于最新的補丁，我們可以從微軟的網(wǎng)站上獲得。然后，將希望用戶安裝的補丁號放到一個數(shù)組里。根據(jù)不同Windows操作系統(tǒng)我們需要設(shè)置不同檢測補丁號。基于當(dāng)前Windows系統(tǒng)使用情況，我只對Windows 2000/2003/XP進行檢測。
‘ 對于windows 2000
arrFixed_WIN2K=Array("KB840315","KB870669","KB828741","KB835732",
"KB840987","KB841356","KB885835","KB885836",
"KB842526","KB841872","KB841873","KB889293")
'對windows 2003系統(tǒng)
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")
第二步，創(chuàng)建WMI對象，并和目標主機建立連接。
Dim objWMIService // WMI對象
Dim strComputer = “.” // 地址為當(dāng)前主機
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" strComputer "\root\cimv2")
首先，定義兩個變量objWMIService和strComputer，第一個為我們要創(chuàng)建的服務(wù)定位對象，第二個為目標主機IP地址（如果為當(dāng)前主機者為“.”）。第三句創(chuàng)建一個連接到目標主機的服務(wù)對象，定義名字空間參數(shù)為“root\cimv2”。在這個名字空間里有我們接下來要用的系統(tǒng)信息。
Socket：詳細代碼請看光盤附送的Check_patch.txt，更改文件擴展名txt為VBS，在Windows下可雙擊運行，如果當(dāng)前系統(tǒng)檢測出未打補丁，則出現(xiàn)提示窗口，否則無。
第三步，讀取當(dāng)前用戶操作系統(tǒng)信息，及其安裝補丁的情況。在名字空間“root/cimv2”下，實例“Win32_OperatingSystem”為我們提供了詳細的當(dāng)前操作系統(tǒng)信息。我們采用Wql(sql for WMI)來讀取該實例，熟悉SQL語法的朋友一看就知道是在做什么了。
' 先判斷主機系統(tǒng)信息：OS，SP補丁版本情況
' 獲取系統(tǒng)信息
Dim objOSInfo // 獲取操作系統(tǒng)信息
Dim intOSver,intOStype,intCurrentSP // 當(dāng)前系統(tǒng)版本，類型，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 ‘操作系統(tǒng)版本號
intOStype = colOSInfo.OSType ‘操作系統(tǒng)類型
Next
Socket：如何知道要連接哪個名字空間，獲得哪些對象呢？《WMI技術(shù)指南》[3]中分類列出了大量常用的對象?？上鼪]有相應(yīng)的電子書，你只有到書店里找它了。你也可以用WMITools里WMI CIM Studio這個工具的搜索功能，很容易就能找想要的對象。找到對象后，WMI CIM Studio能列出其屬性和方法，然后到MSDN里找具體的幫助。
第四步，獲取當(dāng)前系統(tǒng)已經(jīng)安裝的補丁信息。在“root\cimv2”下，實例“Win32_QuickFixEngineering”下的“HotFixID”屬性存放了當(dāng)前系統(tǒng)所安裝的補丁信息。
'*******************************************************************
'*讀取目標主機已安裝補丁列表到字符串strFixedList
'*******************************************************************
Dim colQFE, objQFE
Dim strHotFixID, strFixedList, strFind, strNoFixed
Set colQFE = osvcRemote.ExecQuery("SELECT HotFixID FROM Win32_QuickFixEngineering")
第四步，將讀取的用戶補丁號存到一數(shù)組變量，然后與我們在“第一步“定義的相應(yīng)數(shù)組進行匹配，找出當(dāng)前系統(tǒng)未安裝的補丁號。這部分的實現(xiàn)比較簡單，請參考后面的代碼。
第五步，顯示最后檢測結(jié)果。
至此，整個補丁檢測過程結(jié)束，只要將本腳本文件進行點擊運行，就可以完成補丁的檢查。特別是對于已經(jīng)在企業(yè)中建立起Acitve Directory域的網(wǎng)絡(luò)管理員來說，只要將此腳本添加到域控制器的組策略里，對每個登陸到域的用戶進行補丁檢測，提示用戶最新補丁信息，再也不用為用戶沒有安裝最新補丁而苦惱了，大大提高了企業(yè)內(nèi)部網(wǎng)絡(luò)安全管理。