アンチウイルスソフトウェアがインストールされていることを確認するサンプルプログラムです。 名前空間は Root\SecurityCenter、クラスが AntiVirusProduct になります。 従来の VB (VB6) 版のサンプルコードはこちらで公開しています。 Option Explicit 'WMIにて使用する各種オブジェクトを定義・生成する。 Dim oClassSet Dim oClass Dim oLocator Dim oService Dim sMesStr 'ローカルコンピュータに接続する。 Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator") Set oService = oLocator.ConnectServer(, "Root\SecurityCenter") 'クエリー条件を W