Discussion :

[DOliv]

Bonjour à tous.tes,
J'ai besoin de gérer l'activation / désactivation du DHCP via une application Delphi 11.
Je n'ai rien trouvé d'autre que l'éventuelle possibilité de passer par les API Windows. Mais je ne sais pas comment faire.
Quelqu'un aurait-il quelques pistes à me proposer.
D'avance merci

[ShaiLeTroll]

C'est surement via ReleaseDHCPLease, tu as tout ce qu'il faut dans How do I disable a network connection


Pour faire gagner du temps à tous, un début de code à nous fournir que l'on doit corriger
Des liens vers vos lectures, que l'on répète pas les mêmes choses

[DOliv]

Merci ShaiLeTroll. Je vais jeter un oeil plus attentif.

J'ai essayé de trouver la soluce en ligne de commande, mais très bizarrement, ou pas, je ne trouve pas ce qui semblerait être un pgm nommé dhcpconfig dans mon windows 10.
Avec
/usr/sbin/dhcpconfig -S -e (pour enabler)
/usr/sbin/dhcpconfig -S -d (pour disabler)

[ShaiLeTroll]

/usr/ ... c'est du sous-system linux dans Windows ?

[DOliv]

Ah ben c'est pour ça que je ne trouvais pas

[DOliv]

Oui, il semble bien y avoir tout ce qu'il faut dans "How do I disable a network connection".
Sauf qu'il n'y a rien d'expliqué, que ça me semble très compliqué, et que, donc, je n'arrive pas à maîtriser le truc.
J'ai bien réussi à désactiver le DHCP sur ma carte réseau à un moment donné, mais je n'arrive plus à reproduire...

Y aurait-il quelque part des tutos sur la gestion des réseaux avec Delphi ?

[DOliv]

Peut-être intéressant :
https://theroadtodelphi.com/2015/10/...i-from-delphi/
Je check

[SergioMaster]

Sauf qu'il n'y a rien d'expliqué, que ça me semble très compliqué, et que, donc, je n'arrive pas à maîtriser le truc.

Il vous manque certes quelques clauses uses
SysUtils,
ActiveX,
ComObj,
Variants;
et une mise en forme dans une fonction mais rien de bien méchant. Je vous conseille de vous renseigner sur les WMI et peut-être d'installer WMI Code Creator pour vous aider à utiliser celles-ci.
Toute l'astuce du code est d'interroger la bonne classe (Win32_NetworkAdapterConfiguration) au bon endroit (root\CIMV2), la clause where Where IPEnabled = True du WQL (presque du SQL) vous permet de cibler si l'ip est active, bien sûr s'il y a plusieurs réseaux et que vous voulez désactiver seulement une ip il va falloir "améliorer" la clause

en exemple sur mon poste (avec wmi code creator) je trouve ceci


Tel que le code est fourni tous seraient désactivés ce qui n'est peut-être pas le but recherché

En tout cas, je viens d'apprendre une chose, il est possible d'utiliser des méthodes à partir de WMI, j'étais persuadé que ce n'était que de la lecture seule

[DOliv]

En cas avec le code de https://theroadtodelphi.com/2011/10/...93-networking/ (ci-dessous)
ça marche, mais il pète avec le message en PJ : Types non correspondants
sur SetGateways

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
function ArrayToVarArray(Arr : Array Of string):OleVariant; overload;
var
 i : integer;
begin
    Result   :=VarArrayCreate([0, High(Arr)], varVariant);
    for i:=Low(Arr) to High(Arr) do
     Result[i]:=Arr[i];
end;
 
function ArrayToVarArray(Arr : Array Of Word):OleVariant;overload;
var
 i : integer;
begin
    Result   :=VarArrayCreate([0, High(Arr)], varVariant);
    for i:=Low(Arr) to High(Arr) do
     Result[i]:=Arr[i];
end;
 
procedure  SetStaticIP;
const
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject   : OLEVariant;
  oEnum         : IEnumvariant;
  iValue        : LongWord;
  vIPAddress         : OleVariant;
  vSubnetMask        : OleVariant;
  vDefaultIPGateway  : OleVariant;
  vGatewayCostMetric : OleVariant;
begin
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled=True','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    vIPAddress   := ArrayToVarArray(['192.168.1.141']);
    vSubnetMask  := ArrayToVarArray(['255.255.255.0']);
    if FWbemObject.EnableStatic(vIPAddress, vSubnetMask) = 0 then
    begin
      vDefaultIPGateway  := ArrayToVarArray(['192.168.1.100']);
      vGatewayCostMetric := ArrayToVarArray([1]);
 
  ------>    FWbemObject.SetGateways(vDefaultIPGateway,vGatewayCostMetric);
 
    end;
 
    VarClear(vIPAddress);
    VarClear(vSubnetMask);
    VarClear(vDefaultIPGateway);
    VarClear(vGatewayCostMetric);
    FWbemObject:=Unassigned;
  end;
end;

[SergioMaster]

peut-être parce que la valeur du deuxième argument n'est pas la bonne
enablestatic-method-in-class-win32-networkadapterconfiguration
pour moi le second argument devrait être vsubnetmask

[DOliv]

peut-être parce que la valeur du deuxième argument n'est pas la bonne
enablestatic-method-in-class-win32-networkadapterconfiguration
pour moi le second argument devrait être vsubnetmask

Merci, c'était bien ça

Par contre ça ne fait rien de ce que je voudrais

Une idée m'est venue en tête :
Peut-être que mettre le DHCP en automatique et activer le DHCP sont deux choses différentes ?
Ou alors comment forcer le DHCP à redonner une adresse IP correcte ?

Je ne comprends tellement rien, que j'ai été obligé de réinitialiser mon réseau, pour retrouver mon internet

[DOliv]

Et si je fais :

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
 
begin
  //EnableStatic
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer('localhost', 'root\CIMV2', '', '');
  FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration WHERE DHCPEnabled = True','WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
 
  while oEnum.Next(1, FWbemObject, iValue) = 0 do     // boucle sur
  begin
    vIPAddress   := ArrayToVarArray([GStack.LocalAddress]);
    vSubnetMask  := ArrayToVarArray(['255.255.255.0']);
 
    if FWbemObject.EnableStatic(vIPAddress, vSubnetMask) = 0 then
    begin
      vDefaultIPGateway  := ArrayToVarArray(['192.168.20.171']);
      vGatewayCostMetric := ArrayToVarArray([1]);
//      FWbemObject.SetGateways(vDefaultIPGateway, vGatewayCostMetric);
      FWbemObject.SetGateways(vDefaultIPGateway, vsubnetmask);
    end;
  end;

FWbemObject.EnableStatic(vIPAddress, vSubnetMask) n'est jamais = 0

[DOliv]

Du coup je vais me rabattre sur la ligne de commande :

netsh int ip set address name = "Ethernet" source = dhcp
netsh interface ipv4 set dnsservers name = "Ethernet" source = dhcp

Et, encore du coup, mon problème devient de catcher le "name = "Ethernet""
En ligne de commande je l'ai par :

netsh interface ipv4 show interfaces

Mais (vous me voyez arriver) : Y a t-il une commande Delphi pour récupérer ces infos ?

[DOliv]

Au final, j'ai fait :

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
 
 
  S := '/C "netsh int ip set address name = "' + ListComboBoxNetworkCard.Items[ListComboBoxNetworkCard.ItemIndex] + '" source = dhcp"';
  GetMem(ExecuteOrder, (Length(S) + 1) * SizeOf(WideChar));
 
  try
    StringToWideChar(S, ExecuteOrder, Length(S) + 1);
    ShellExecute(0, 'open','cmd.exe', ExecuteOrder, 0, SW_HIDE);
  finally
    FreeMem(ExecuteOrder);
  end;
 
  S := '/C "netsh interface ipv4 set dnsservers name = "' +  ListComboBoxNetworkCard.Items[ListComboBoxNetworkCard.ItemIndex] + '" source = dhcp"';
  GetMem(ExecuteOrder, (Length(S) + 1) * SizeOf(WideChar));
 
  try
    StringToWideChar(S, ExecuteOrder, Length(S) + 1);
    ShellExecute(0, 'open','cmd.exe', ExecuteOrder, 0, SW_HIDE);
  finally
    FreeMem(ExecuteOrder);
  end;

Ca a l'air de marcher...
What d'you think ?

[DOliv]

Alors, ça fonctionne avec les adresses IP :
netsh int ip set address name = "' + ListComboBoxNetworkCard.Items[ListComboBoxNetworkCard.ItemIndex] + '" source = dhcp

mais pas avec les DNS :
netsh interface ipv4 set dnsservers name = "' + ListComboBoxNetworkCard.Items[ListComboBoxNetworkCard.ItemIndex] + '" source = dhcp

En plus, la même commande fonctionne bien sur les DNS dans l'invite de commandes

Peut-être faut il valider quelque chose entre les deux commande ?
Moi, j'envoie les deux l'une après l'autre.

[DOliv]

Ok, laissez tomber. C'est moi qui débloque grave.
Donc ça marche très bien avec :

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
 
 
  S := '/C "netsh int ip set address name = "' + ListComboBoxNetworkCard.Items[ListComboBoxNetworkCard.ItemIndex] + '" source = dhcp"';
  GetMem(ExecuteOrder, (Length(S) + 1) * SizeOf(WideChar));
 
  try
    StringToWideChar(S, ExecuteOrder, Length(S) + 1);
    ShellExecute(0, 'open','cmd.exe', ExecuteOrder, 0, SW_HIDE);
  finally
    FreeMem(ExecuteOrder);
  end;
 
  S := '/C "netsh interface ipv4 set dnsservers name = "' +  ListComboBoxNetworkCard.Items[ListComboBoxNetworkCard.ItemIndex] + '" source = dhcp"';
  GetMem(ExecuteOrder, (Length(S) + 1) * SizeOf(WideChar));
 
  try
    StringToWideChar(S, ExecuteOrder, Length(S) + 1);
    ShellExecute(0, 'open','cmd.exe', ExecuteOrder, 0, SW_HIDE);
  finally
    FreeMem(ExecuteOrder);
  end;

Merci à tous.tes.