Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Activar - Desactivar cortafuegos - firewall de Windows
Lenguaje de programación Visual Basic Script (VBScript)


Fichero en VBScript (Visual Basic Script) que permite activar y desactivar el cortafuegos (firewall) de Windows XP. También os mostramos otro script VBScript que permite obtener el estado actual del cortafuegos.

Para ello utilizamos el objeto COM: HNetCfg.FwMgr.


Para activar el cortafuegos de Windows:


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


Para desactivar el cortafuegos de Windows:

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


Para ver el estado actual del Firewall de Windows:

  Set objFirewall = CreateObject("HNetCfg.FwMgr")
  Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
  msgbox "Firewall activo: " & objPolicy.FirewallEnabled




Publicado el: 2009-05-26

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+