Set objFirewall = CreateObject("HNetCfg.FwMgr")Set objPolicy = objFirewall.Lo calPolicy.Curr entProfileobjPolicy.Fire wallEnabled = false