ファイアウォールソフトウェアがインストールされていることを確認する: FirewallProduct
■Topics
ファイアウォールソフトウェアがインストールされていることを確認するサンプルです。名前空間は「Root\SecurityCenter」、クラスが「FirewallProduct」になります。
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
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
実行すると現在インストールされているファイアウォールソフトウェアを表示します。今回使用した「FirewallProduct」クラスはWindows XP SP2より追加された新しいクラスで、「Root\SecurityCenter」という新しい名前空間に定義されています。
ただしまだ制限があるようでこのクラスの実行で取得が確認できたのは「Norton Personal Firewall 2005」になります。ちなみにこのソフトをインストールする際に、「Norton WMI Update」というコンポーネントがインストールされたのでこれがキーになっているものと思われます。それ以外のソフトウェアでは確認できませんでした。
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。