WindowsXP SP2以降、Vista OSでセキュリティセンターのステータスについて (ID:102429)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

初めて書き込みさせて頂きます。

現在XP SP2以降、Vista OSのセキュリティセンターのステータスをうまく拾う事が出来ずにいます。

最終的には、インストールされているセキュリティソフト（ウィルス対策ソフト、ファイヤーウォールソフト）の名称とそのソフトの有効期限が切れているかどうかが調べられれば良いので、手段は何でも良いのですが、WMIを利用した場合の以下サンプルコードで上手く動作させる事が出来ません。

例えば以下のようなサンプルコードで実行すると、Vistaではカスペルスキーがインストールされていてるのに"AntiVirus Product Not Installed"
を返してきます。

strComputer = "."
Set oWMI = GetObject("winmgmts:{impersonationlevel=impersonate}!\\" _
  & strComputer & "\root\SecurityCenter")
Set colAV = oWMI.ExecQuery("Select * from AntiVirusProduct")

If colAV.Count = 0 Then

MsgBox "AntiVirus Product Not Installed"

Else
     For Each objAntiVirusProduct In colAV

MsgBox "CompanyName             : " & objAntiVirusProduct.CompanyName

MsgBox "VersionNumber           : " & objAntiVirusProduct.versionNumber

MsgBox "InstanceGuid            : " & objAntiVirusProduct.instanceGuid

MsgBox "onAccessScanningEnabled : " & objAntiVirusProduct.onAccessScanningEnabled

MsgBox "ProductUptoDate         : " & objAntiVirusProduct.productUptoDate

MsgBox "DisplayName             : " & objAntiVirusProduct.DisplayName

Next
End If

何か有効な手法等があればご教授頂けると幸いです。
宜しくお願い致します。

←解決時は質問者本人がここをチェックしてください。

戻る