API windows DHCP et Delphi

Version imprimable

03/04/2023, 22h28
DOliv

API windows DHCP et Delphi

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 :)
04/04/2023, 09h33
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
04/04/2023, 09h44
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)

:roll:
04/04/2023, 10h30
ShaiLeTroll

/usr/ ... c'est du sous-system linux dans Windows ?
04/04/2023, 11h09
DOliv

Ah ben c'est pour ça que je ne trouvais pas :roll:
04/04/2023, 12h08
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 ?
04/04/2023, 12h52
DOliv

Peut-être intéressant :
https://theroadtodelphi.com/2015/10/...i-from-delphi/
Je check :mrgreen:
04/04/2023, 15h41
SergioMaster

1 pièce(s) jointe(s)

Citation:

Envoyé par DOliv

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
Pièce jointe 636826

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

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

1 pièce(s) jointe(s)

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 8O

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
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;

05/04/2023, 09h02
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
05/04/2023, 12h26
DOliv

Citation:

Envoyé par 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

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 :|

Et si je fais :

Code:

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

:(

05/04/2023, 15h06
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 ? :mrgreen:

Au final, j'ai fait :

Code:

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... :roll:
What d'you think ?

18/04/2023, 15h48
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 :pleure:

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

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

Code:

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.