Modify an ICMP Setting

Demonstration script that modifies a Windows Firewall ICMP setting for the current profile

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
Set objICMPSettings = objPolicy.ICMPSettings
objICMPSettings.AllowRedirect = TRUE

This is a VB Script, this can be used by saving the file in .vbs file