Manipulando el Firewall de Win & Agregando software a la lista de excepciones

[rcguillen]

Para la gente q maneja Script o los famosos CREATEOBJECT aqui les va algo para poder habilitar y deshabilitar el firewall de windows y tambien como agregar nuestro programa a la lista de excepciones para q lo deje pasar imaginense lo q se puede hacer con ello 

Aqui va el codigo :
Setiamos Firewall como objeto al activex HNetCfg
Set Firewall = CreateObject("HNetCfg.FwMgr")

Setiamos en Politica la propiedad de la politica local de configuracion
Set Politica = Firewall.LocalPolicy.CurrentProfile

Simplemente setea ala propiedad FirewallEnabled un false 
Politica.FirewallEnabled = FALSE

Y si quisieramos agregar nuestro programa a lista de excepciones

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

Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "Jiji Nuestra - Aplicación"
objApplication.IPVersion = 3
objApplication.ProcessImageFileName = "C:\Windows\System32\miprograma.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True

Set colApplications = objPolicy.AuthorizedApplications
colApplications.Add(objApplication)

Asi q a volcar vuestra imaginacion jiji

Saludos 

[JGuillen™]

Buenale man..! buen tips..! 


  

[Maxixi]

excelente info man