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 |
Merci à William Gramond
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
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.
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
Pour ma part,ça ne fonctionne pas meme message que les autres!!!
l'astuce fonctionne tres bien avec sp2 , mais est-ce conseillé de désactiver le pare-feu ?dans quelle circonstance que ce soi…
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 🙁
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é.
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.)
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.
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
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 😉
Très bonne astuce et très efficace.Nickel, bravo Zebulon 🙂
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==
bravo Sebdraluorg, ca fonctionne très bien et merci a zebulon egalement
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.
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.