Discussion :

[NABIL74]

bonjour,

Je suis en train de chercher comment ajouter une regle via une quelconque api de windows.

Je lis ce topic et je ne comprends pas que l'on puisse s'en insurger. Ca me semblerait tout a fait logique que windows fournisse une telle api.

Je veux deployer un service en mode silencieux sur un parc de machines dont je suis l'admin. Le service a besoin d'une regle sur le firewall pour fonctionner.

il existe une solution pour ajouter l'application à la liste des exceptions deu firewall de windows.
j'ai testé ce code sans que mon firewall de windows soit activé car j'utilise une suite sécurité.donc je ne sais pas s'il est silencieux ou non.

dans le ce programme,on ajoute OutLook à la liste des exceptions .

il faut ajouter dans la partie "uses" => "COMObj".

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
procedure TForm1.Button1Click(Sender: TObject);
const
  NET_FW_PROFILE_DOMAIN = 0;
  NET_FW_PROFILE_STANDARD = 1;
  NET_FW_SCOPE_ALL = 0;
  NET_FW_IP_VERSION_ANY = 2;
 
var
  fwMgr:   OleVariant;
  profile: OleVariant;
  app:	   OleVariant;
begin
  try
    fwMgr := CreateOleObject('HNetCfg.FwMgr');
    //  Obtient le profil actuel de la stratégie de pare-feu.
    profile := fwMgr.LocalPolicy.CurrentProfile;
    app     := CreateOleObject('HNetCfg.FwAuthorizedApplication');
    app.ProcessImageFileName := '%PROGRAMFILES%\Outlook Express\msimn.exe';// par exemple "Outlook "
    app.Name      := 'Outlook Express';
    app.Scope     := NET_FW_SCOPE_ALL;
    //  utilise l'un ou RemoteAddresses portée, mais pas les deux
    // app.RemoteAddresses = '*'
    app.IpVersion := NET_FW_IP_VERSION_ANY;
    app.Enabled   := True;
 
    //  Utilise cette ligne si vous voulez ajouter l'application, mais handicapés.
    // app.Enabled = FALSE
    profile.AuthorizedApplications.Add(app);
  finally
    app     := VarNull;
    profile := VarNull;
    fwMgr   := VarNull;
  end;
end;

a+

NABIL74

[jackfirst72]

Est-il possible de marquer ce post comme résolu ou délestage svp.
Merci d'avance.

[Montor]

ce n'est pas le problème de windows si on laisse tout le monde accède au base de registre le code de NABIL74 est pour être exécuté par un administrateur !!

[swierzbicki]

Bonjour,

Avez-vous déjà utilisé JWSCL, c'est une excellente librairie pout tout ce qui est en relation avec la sécurité sous Windows :

Site Web : http://blog.delphi-jedi.net/tag/jwscl/

Site de téléchargement : https://sourceforge.net/projects/jedi-apilib/files

Doc. en rapport au firewall : http://jwscldoc.delphi-jedi.net/inde...lFirewall.html