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
Fis.AllowInboundEchoRequest = "True"
Next
MsgBox "エコー要求の着信の設定を有効にしました。"
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
Fis.AllowInboundEchoRequest = "True"
Next
MsgBox "エコー要求の着信の設定を有効にしました。"
Set FisSet = Nothing
Set Fis = Nothing
Set Service = Nothing
Set Locator = Nothing
End Sub
実行するとWindowsファイアウォールをICMPエコー(要するにPing)の着信に対して応答する設定に変更します。
HNet_FwIcmpSettings クラスに関連するサンプルは他に、
なおWMIの使い方(VB6,VBS,VB.NET,VC#,PowerShell対象)に関してはWMI Stepも参考にしてみてください。