Restore the Windows Firewall default settings.

Visual Basic
Edit|Remove
Set objFirewall = CreateObject("HNetCfg.FwMgr")
objFirewall.RestoreDefaults()