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