■Topics

---

アンチウイルスソフトウェアがインストールされていることを確認するサンプルです。名前空間は「Root\SecurityCenter」、クラスが「AntiVirusProduct」になります。

---

■Sample Code

---

Private Sub Command1_Click()

Dim AvpSet As SWbemObjectSet
Dim Avp As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String

Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(, "Root\SecurityCenter")

Set AvpSet = Service.ExecQuery("Select * From AntiVirusProduct")

For Each Avp In AvpSet

    MesStr = MesStr & vbCrLf & "製造元：" & Avp.CompanyName & vbCrLf & _
            "アンチウイルスソフト名：" & Avp.DisplayName & vbCrLf & _
            "バージョン：" & Avp.versionNumber & vbCrLf
Next

MsgBox "インストールされているアンチウイルスソフトの情報です。" & _
            vbCrLf & MesStr & vbCrLf & "ですよ。"

Set AvpSet = Nothing
Set Avp = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub

---

■Comment

---

実行すると現在インストールされているアンチウイルスソフトウェアを表示します。今回使用した「AntiVirusProduct」クラスはWindows XP SP2より追加された新しいクラスで、「Root\SecurityCenter」という新しい名前空間に定義されています。
ただしまだ制限があるようでこのクラスの実行で取得が確認できたのは「Norton AntiVirus 2005」になります。ちなみにこのソフトをインストールする際に、「Norton WMI Update」というコンポーネントがインストールされたのでこれがキーになっているものと思われます。それ以外のソフトウェアでは確認できませんでした。

---