[VBS] Bloquer une application dans le pare-feu Windows 7.
Bonjour et merci de votre aide :),
Je suis pas terrible en vbs et je sollicite votre aide pour bloquer une application dans le pare-feu windows 7 en utilisant du vbs, j'ai cherché sur le net mais j'ai trouver que des scripte pour autoriser les application voici un exemplaire:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy
Set objProfile = objPolicy.GetProfileByType(0) 'Domaine
Set objApplication = CreateObject("HNetCfg.FwAuthorizedApplication")
objApplication.Name = "TestExe"
objApplication.IPVersion = 2
objApplication.ProcessImageFileName = "C:\TestExe.exe"
objApplication.RemoteAddresses = "*"
objApplication.Scope = 0
objApplication.Enabled = True
Set colApplications = objProfile.AuthorizedApplications
colApplications.Add(objApplication) |
Merci de votre aide ;)
[VBS] Bloquer une application dans le pare-feu Windows 7.
Bonjour, tout d'abord je tiens à te remercier pour l'intérêt que tu porte a mon problème,
Effectivement une solution par le regedit m'intéresse du moment que ça bloque l'accès internet de l'application,
Merci d'avance.
Bloquer et Débloquer l'exécution de la calculatrice
:salut:
Voici le code pour bloquer et débloquer l'exécution de la calculatrice. :king:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Option Explicit
Dim ws,Question,Titre
Titre = "Bloquer et Débloquer l'exécution de la calculatrice © Hackoo"
set ws = createobject("WScript.Shell")
Question = MsgBox("Voulez-vous bloquer l'exécution de la calculatrice ? " & Vbcr &_
"Si Oui Cliquer sur Oui !" & Vbcr &_
"Si Non Cliquer sur Non !",VbYesNo+VbQuestion,Titre)
If Question = VbYes then
Call Bloquer()
MsgBox "La calculatrice est désormais bloquée !",VbExclamation,Titre
Else
Call Debloquer()
ws.run "Calc.exe"
End if
'*************************************************************************************************************************************
'Pour bloquer l'exécution de la calculatrice
Sub Bloquer()
ws.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\calc.exe\Debugger","Block"
End Sub
'*************************************************************************************************************************************
'Pour débloquer l'exécution de la calculatrice
Sub Debloquer()
ws.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\calc.exe\Debugger",""
End Sub
'************************************************************************************************************************************* |
[VBS] Bloquer une application dans le pare-feu Windows 7.
Bonjour, Merci pour ton aide et désolé pour le retard,
Le script regedit bloque l'exécution du programme et je cherche a bloquer l'accès internet du programme pas son exécution ou au un script vbs qui peux le faire au nivaux du pare-feux
Merci
