Cambiar la dirección IP y/o servidor dns de un adaptador (lo mismo wifi que ethernet)

[Jcg-Guirola]

Bueno me he pues a revisar el de duilioisola y este y al final agregué el gateway me quedó así

Código Delphi [-]
uses
   ActiveX,
   ComObj;

procedure  SetStaticIpAddress(const NetworkCard, IPAddress,Mask,gateway:string);

const
  WbemUser    ='';
  WbemPassword='';
  WbemComputer='localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator   : OLEVariant;
  FWMIService     : OLEVariant;
  FWbemObjectSet  : OLEVariant;
  FWbemObject     : OLEVariant;
  FOutParams      : OLEVariant;
  vIpAddress      : OLEVariant;
  vMask           : OLEVariant;
  vgateway        : OLEVariant;
  oEnum           : IEnumvariant;
  iValue          : LongWord;
  begin
begin
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);

  FWbemObjectSet:= FWMIService.ExecQuery(Format('SELECT * FROM Win32_NetworkAdapterConfiguration Where Description="%s"',[NetworkCard]),'WQL',wbemFlagForwardOnly);
  oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  if oEnum.Next(1, FWbemObject, iValue) = 0 then
  begin
    vIpAddress   := VarArrayCreate([0, 0], varVariant);
    vIpAddress[0]:= IPAddress;
    vMask   := VarArrayCreate([0, 0], varVariant);
    vMask[0]:=  Mask;
     vgateway   := VarArrayCreate([0, 0], varVariant);
     vgateway[0]:=   gateway;
    FOutParams:=FWbemObject.EnableStatic(vIpAddress, vMask);
    FOutParams:=FWbemObject.setgateways(vgateway);
    // 0 - Successful completion, no reboot required
    // 1 - Successful completion, reboot required
  showmessage(Format('ReturnValue  %s',[FOutParams]));
  end
  else
 showmessage('Network card not found');
end;


  end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 SetStaticIpAddress('Atheros AR8131 PCI-E Gigabit Ethernet Controller (NDIS 6.20)','10.2.4.3','255.255.255.0','10.1.1.1');
end;

end.