Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = True
——————-
Thanks,
https://paddymaddy.blogspot.com/
