(VBScript)Firewallの有効無効を設定する

VBScriptでFirewallを無効にするサンプルです。

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

objPolicy.FirewallEnabled = FALSE