Sv Community El Salvador

Soporte y Tecnología => Programación => Topic started by: rcguillen on July 22, 2007, 04:59:43 pm

Title: Manipulando el Firewall de Win & Agregando software a la lista de excepciones
Post by: rcguillen on July 22, 2007, 04:59:43 pm

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  :roll:

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  :big_boss:

Title: Re: Manipulando el Firewall de Win & Agregando software a la lista de excepciones
Post by: JGuillen™ on July 22, 2007, 10:10:30 pm

Buenale man..! buen tips..!  :sur:


 :thumbsup:  B-)

Title: Re: Manipulando el Firewall de Win & Agregando software a la lista de excepciones
Post by: Maxixi on July 22, 2007, 10:13:02 pm

excelente info man  :thumbsup: