Export (0) Print
Expand All

Changing Settings in a Specific Profile

The following example demonstrates changing settings in a specific profile.



Option Explicit

'Set Constants
Const NET_FW_PROFILE_DOMAIN = 0
Const NET_FW_PROFILE_STANDARD = 1

'Declare variables
' Create the firewall manager object.
Dim fwMgr
Set fwMgr = CreateObject("HNetCfg.FwMgr")

' Get the current profile for the local firewall policy.
Dim profile
set profile = fwMgr.LocalPolicy.GetProfileByType(NET_FW_PROFILE_STANDARD)

profile.IcmpSettings.AllowInboundEchoRequest = TRUE

'Use this line if you want to disable the setting.
'profile.IcmpSettings.AllowInboundEchoRequest = FALSE




 

 

Community Additions

ADD
Show:
© 2014 Microsoft