WindowsファイアウォールのICMP設定を取得する: HNet_FwIcmpSettings - WMI Sample (VBS)

Option Explicit

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
Dim sMesStr

'ローカルコンピュータに接続する。
Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer(, "Root\Microsoft\HomeNet")
'クエリー条件をWQLにて指定する。
Set oClassSet = oService.ExecQuery("Select * From HNet_FwIcmpSettings")

'コレクションを解析する。
For Each oClass In oClassSet

sMesStr = sMesStr & "エコー要求の着信：" & oClass.AllowInboundEchoRequest & vbCrLf & _
"マスク要求の着信：" & oClass.AllowInboundMaskRequest & vbCrLf & _
"ルータ要求の着信：" & oClass.AllowInboundRouterRequest & vbCrLf & _
"タイムスタンプ要求の着信：" & oClass.AllowInboundTimestampRequest & vbCrLf & _
"到達できない宛先の送信：" & oClass.AllowOutboundDestinationUnreachable & vbCrLf & _
"パラメータ問題の送信：" & oClass.AllowOutboundParameterProblem & vbCrLf & _
"送信元抑制：" & oClass.AllowOutboundSourceQuench & vbCrLf & _
"時間経過の送信：" & oClass.AllowOutboundTimeExceeded & vbCrLf & _
"リダイレクトを許可：" & oClass.AllowRedirect & vbCrLf

Next

MsgBox ("WindowsファイアウォールのICMP設定の情報です。" & vbCrLf & vbCrLf & sMesStr)

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing