アンチスパイウェアがインストールされていることを確認する: AntiSpywareProduct - WMI Sample (VB)

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