Paramétrage du Parefeu Windows via VBscript

Bonjour !

Je souhaiterais savoir s'il est possible d'activer le parefeu Windows en y incluant des exceptions via un VBscript ?
Cela permettrait de déployer ce script sur l'ensemble du réseau et d'éviter des manips rébarbatives.

Merci d'avance :)

Bonjour,

Avec du retard mais essaie ce code cela devrait fonctionner :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'<<<<<<<<ACTIVER LE FIREWALL :) >>>>>>>>>>>   Set objFirewall = CreateObject("HNetCfg.FwMgr") Set objPolicy = objFirewall.LocalPolicy.CurrentProfile   objPolicy.FirewallEnabled = TRUE     '<<<<<<<DESACTIVER FIREWALL>>>>>>>>   Set objFirewall = CreateObject("HNetCfg.FwMgr") Set objPolicy = objFirewall.LocalPolicy.CurrentProfile   objPolicy.FirewallEnabled = FALSE

---

Bye