ファイアウォールソフトウェアがインストールされていることを確認する: FirewallProduct - WMI Sample (VB)

Topics

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

VBS (WSH) 版のサンプルコードはこちらで公開しています。

Sample Code

Private Sub Command1_Click()

Dim FwpSet As SWbemObjectSet
Dim Fwp 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 FwpSet = Service.ExecQuery("Select * From FirewallProduct")

For Each Fwp In FwpSet

MesStr = MesStr & vbCrLf & "製造元: " & Fwp.CompanyName & vbCrLf & _
"ファイアウォールソフト名: " & Fwp.DisplayName & vbCrLf & _
"バージョン: " & Fwp.versionNumber & vbCrLf & _
"有効: " & Fwp.Enabled & vbCrLf
Next

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

Set FwpSet = Nothing
Set Fwp = Nothing
Set Locator = Nothing
Set Service = Nothing

End Sub

Comment

実行すると現在インストールされているファイアウォールソフトウェアを表示します。今回使用した「FirewallProduct」クラスは Windows XP SP2 より追加された新しいクラスで、「Root\SecurityCenter」という新しい名前空間に定義されています。
ただしまだ制限があるようでこのクラスの実行で取得が確認できたのは「Norton Personal Firewall 2005」になります。ちなみにこのソフトをインストールする際に、「Norton WMI Update」というコンポーネントがインストールされたのでこれがキーになっているものと思われます。それ以外のソフトウェアでは確認できませんでした。
なお WMI の使い方(VB6, VBS, VBA, VB.NET, VC#, PowerShell を対象) に関しては、WMI Step も参考にしてみてください。(WMI 初心者・入門編としてもおすすめです。) 各種言語を使用したWMIを使用するたたき台としてソースコードテンプレートも公開しています。WMI プログラム/スクリプト作成時に役立てば…と思っています。

Recommended book

個人的にお勧めする本の紹介です。


WMI Fun !! > WMI Sample (VB) > ファイアウォールソフトウェアがインストールされていることを確認する

WMI Fun !! > WMI Sample (VB) > ファイアウォールソフトウェアがインストールされていることを確認する

ファイアウォールソフトウェアがインストールされていることを確認する: FirewallProduct - WMI Sample (VB)

Topics

Sample Code

Comment

Recommended book