Accueil » Astuces » Sécurité système » Contrôler le firewall XP d’un seul clic

Contrôler le firewall XP d’un seul clic

Par Yann

Nous allons créer deux scripts VBS permettant de contrôler le pare-feu de Windows XP SP2. Ces petits scripts placés sur le bureau permettront d’activer ou de désactiver le firewall d’un simple clic. Rapide et efficace !

Chacun des deux vbs est composé de trois lignes. Les scripts fonctionnent uniquement avec Windows XP SP2. Nous allons commencer par créer le script permettant la désactivation du firewall.

Ouvrez votre éditeur de texte favori (le Bloc-notes fera parfaitement l’affaire : menu Démarrer, Exécuter… et tapez notepad).

Copiez ensuite les lignes suivantes :

Set objFirewall = CreateObject(“HNetCfg.FwMgr”)

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

objPolicy.FirewallEnabled = FALSE

Sauvegardez le fichier du nom de votre choix avec l’extension .vbs (Firewall_OFF.vbs par exemple).

Passons maintenant au script permettant l’activation du firewall :

Copiez les lignes suivantes dans votre éditeur de texte :

Set objFirewall = CreateObject(“HNetCfg.FwMgr”)

Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

objPolicy.FirewallEnabled = TRUE

Sauvegardez le fichier du nom de votre choix avec l’extension .vbs (Firewall_ON.vbs par exemple).

Vous pouvez placer ces deux fichiers où bon vous semble, le plus pratique étant de les déposer sur le bureau afin de pouvoir y accéder simplement.

Les deux scripts sont également à votre disposition ci-dessous :

Activer le firewall

Désactiver le firewall

"Activer

"Désactiver

Merci à William Gramond

Vous aimerez aussi

S’abonner
Notifier de
guest
16 Commentaires
plus ancien
plus récent Le plus populaire
Commentaires en ligne
Voir tous les commentaires
Alexandritorix

j'ai utiliser les script dispo et meme tapper a la main ca ne fonctionne pasLigne : 1
Caract : 1
Erreur : Un composant ActiveX ne peut pas créer un objet.:'HNetCfg.FwMgr'
Code : 800A01AD
Source : Erreur d'exécution Microsoft VBScript

termite

Pour ma part, ça marche très bien sur XP SP2. Astuce très pratique pour désactiver temporairement le firewall pour tester un programme. Merci une fois de plus.

arno

idem pour moi
j'ai utiliser les script dispo et meme tapper a la main ca ne fonctionne pas
Ligne : 1
Caract : 1
Erreur : Un composant ActiveX ne peut pas créer un objet.:'HNetCfg.FwMgr'
Code : 800A01AD
Source : Erreur d'exécution Microsoft VBScript

gagne77

Pour ma part,ça ne fonctionne pas meme message que les autres!!!

demonceau

l'astuce fonctionne tres bien avec sp2 , mais est-ce conseillé de désactiver le pare-feu ?dans quelle circonstance que ce soi…

Yann

Si vous avez l'erreur "Un composant ActiveX ne peut pas créer un objet.:'HNetCfg.FwMgr'", il faut que vous installiez le SP2. Contrairement à ce que j'avais dit dans la première version de l'astuce, les scripts ne fonctionnent pas sans le service pack 2 🙁

cancre

Pour répondre à demonceau, il est parfois utile de désactiver temporairement le firewall afin de tester des applications sur un poste ou un réseau. Bien entendu, il ne faut pas rester tout le temps avec un firewall désactivé.

coconut's

Et pour compléter ce que dit cancre, la désactivation du firewall permet également d'accéder à certains services sur le web (comme des téléchargements par ex.)

arno

avec le sp1 j'ai le message d'erreur que tout le monde a au dessus mais donc a priori c'est normal…
avec le sp2 j'ai un autre message d'erreur : le mappeur de point final n'a plus de point final disponible
code: 800706D9

dommage c'etait plutot pratique comme astuce.

kristianm

avec mozilla le script dispo ne fonctionne pas . En utilisant internet explorer là je n'ai eu aucuns problémes.
Bien pratique en effet .

Kristianm

Sebdraluorg

Salut a tous,
On peut aussi le faire en un seul raccourcis

Exemple:

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPolicy.FirewallEnabled = not objPolicy.FirewallEnabled
Select case objPolicy.FirewallEnabled
Case True
Msgbox "FireWall Activé avec succes"

Case False
Msgbox "FireWall Desactivé avec succes"
end Select

De cette facon si il etait active il sera desactive et inversement, et un message de confirmation vous donnera l'etat du parefeu 😉

boudharwar

Très bonne astuce et très efficace.Nickel, bravo Zebulon 🙂

kimcat

Pour ceux qui sont sous SP1, pour désactiver le parefeu de windows, il suffit tout simplement d'arrêter le service "parefeu de connexion internet (ICF)" Poue accéder aux services windows: démarrer/exécuter/services.msc
KiM=Ÿ=

pcast

bravo Sebdraluorg, ca fonctionne très bien et merci a zebulon egalement

stedode

Merci Zebulon, le vbs de Sebdraluorg est plus pratique, un seul clic qui active désactive le parefeu.Utile pour ma Webcam qui accroche avec le parefeu On.

stedode

Merci Zebulon, le vbs de Sebdraluorg est plus pratique, un seul clic qui active désactive le parefeu.Utile pour ma Webcam qui accroche avec le parefeu On.

16
0
Nous serions ravis d'avoir votre avis, laissez un commentaire !x