WindowsファイアウォールのICMP設定を取得する: HNet_FwIcmpSettings
■Topics
現在のWindowsファイアウォールのICMP設定を取得するサンプルです。名前空間は「Root\Microsoft\HomeNet」、クラスが「HNet_FwIcmpSettings」になります。
Private Sub Command1_Click()
Dim FisSet As SWbemObjectSet
Dim Fis As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(, "Root\Microsoft\HomeNet")
Set FisSet = Service.ExecQuery("Select * From HNet_FwIcmpSettings")
For Each Fis In FisSet
MesStr = MesStr & "エコー要求の着信：" & Fis.AllowInboundEchoRequest & vbCrLf & _
"マスク要求の着信：" & Fis.AllowInboundMaskRequest & vbCrLf & _
"ルータ要求の着信：" & Fis.AllowInboundRouterRequest & vbCrLf & _
"タイムスタンプ要求の着信：" & Fis.AllowInboundTimestampRequest & vbCrLf & _
"到達できない宛先の送信：" & Fis.AllowOutboundDestinationUnreachable & vbCrLf & _
"パラメータ問題の送信：" & Fis.AllowOutboundParameterProblem & vbCrLf & _
"送信元抑制：" & Fis.AllowOutboundSourceQuench & vbCrLf & _
"時間経過の送信：" & Fis.AllowOutboundTimeExceeded & vbCrLf & _
"リダイレクトを許可：" & Fis.AllowRedirect & vbCrLf
Next
MsgBox "WindowsファイアウォールのICMP設定の情報です。" & vbCrLf & vbCrLf & _
MesStr & vbCrLf & "ですよ。"
Set FisSet = Nothing
Set Fis = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
Dim FisSet As SWbemObjectSet
Dim Fis As SWbemObject
Dim Locator As SWbemLocator
Dim Service As SWbemServices
Dim MesStr As String
Set Locator = New WbemScripting.SWbemLocator
Set Service = Locator.ConnectServer(, "Root\Microsoft\HomeNet")
Set FisSet = Service.ExecQuery("Select * From HNet_FwIcmpSettings")
For Each Fis In FisSet
MesStr = MesStr & "エコー要求の着信：" & Fis.AllowInboundEchoRequest & vbCrLf & _
"マスク要求の着信：" & Fis.AllowInboundMaskRequest & vbCrLf & _
"ルータ要求の着信：" & Fis.AllowInboundRouterRequest & vbCrLf & _
"タイムスタンプ要求の着信：" & Fis.AllowInboundTimestampRequest & vbCrLf & _
"到達できない宛先の送信：" & Fis.AllowOutboundDestinationUnreachable & vbCrLf & _
"パラメータ問題の送信：" & Fis.AllowOutboundParameterProblem & vbCrLf & _
"送信元抑制：" & Fis.AllowOutboundSourceQuench & vbCrLf & _
"時間経過の送信：" & Fis.AllowOutboundTimeExceeded & vbCrLf & _
"リダイレクトを許可：" & Fis.AllowRedirect & vbCrLf
Next
MsgBox "WindowsファイアウォールのICMP設定の情報です。" & vbCrLf & vbCrLf & _
MesStr & vbCrLf & "ですよ。"
Set FisSet = Nothing
Set Fis = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行すると現在のWindowsファイアウォールのICMP設定内容が表示されます。
この名前空間にはファイアウォール関係のクラスが多数存在するの面白いかもしれませんよ。
HNet_FwIcmpSettings クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。