Discussion :

[kyosuke_1]

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

[Bal1n]

Bonjour,

Avec du retard mais essaie ce code cela devrait fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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