アンチスパイウェアがインストールされていることを確認する: AntiSpywareProduct
■Topics
アンチスパイウェアがインストールされていることを確認するサンプルです。名前空間は「Root\SecurityCenter」、クラスが「AntiSpywareProduct」になります。
Private Sub Command1_Click()
Dim AspSet As SWbemObjectSet
Dim Asp 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 AspSet = Service.ExecQuery("Select * From AntiSpywareProduct")
For Each Asp In AspSet
MesStr = MesStr & vbCrLf & "製造元：" & Asp.CompanyName & vbCrLf & _
"アンチスパイウェア名：" & Asp.DisplayName & vbCrLf & _
"バージョン：" & Asp.versionNumber & vbCrLf
Next
MsgBox "インストールされているアンチスパイウェアの情報です。" & _
vbCrLf & MesStr & vbCrLf & "ですよ。"
Set AspSet = Nothing
Set Asp = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
Dim AspSet As SWbemObjectSet
Dim Asp 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 AspSet = Service.ExecQuery("Select * From AntiSpywareProduct")
For Each Asp In AspSet
MesStr = MesStr & vbCrLf & "製造元：" & Asp.CompanyName & vbCrLf & _
"アンチスパイウェア名：" & Asp.DisplayName & vbCrLf & _
"バージョン：" & Asp.versionNumber & vbCrLf
Next
MsgBox "インストールされているアンチスパイウェアの情報です。" & _
vbCrLf & MesStr & vbCrLf & "ですよ。"
Set AspSet = Nothing
Set Asp = Nothing
Set Locator = Nothing
Set Service = Nothing
End Sub
実行すると現在インストールされているアンチスパイウェアを表示します。今回使用した「AntiSpywareProduct」クラスは Windows Vista SP1より追加された新しいクラスのようで、「Root\SecurityCenter」という名前空間に定義されています。
Microsoft製Windows Defenderはこのクラスで認識出来ました。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。