Смена IP локального подключения

[Denager]

Имеется подключение по локальной сети, требуется реализовать смену IP адреса на статический (например на 192.168.0.3).
Предварительно я пингую данный IP на возможность его присутствия - если не найден - то сменить IP. Вопрос как раз и заключается в коде смены IP подключения на заданный - статика. (Программа запускается исключительно локально на машине)

[Terran]

Вот код, думаю поможет:

unit Iptools;
interface
uses Windows,Registry,SysUtils, Variants, Classes,Dialogs,ShellApi;
//-----------------------------------------------------
  var
 Registry1: Tregistry;
 Keyslist:  Tstrings;
 P: Pointer;
//Declarations-----------------------------------------
Procedure Set_IP_AND_MASK98(IP,Mask: String);
Procedure Set_IP_AND_MASKXP(IP,Mask: String);
Procedure Set_IP_AND_MASK (IP,Mask: String);
function GetWinVersion: String;

implementation
function GetWinVersion: String;
var
   VersionInfo : TOSVersionInfo;
   OSName      : String;
begin
      VersionInfo.dwOSVersionInfoSize := SizeOf( TOSVersionInfo );

   if Windows.GetVersionEx( VersionInfo ) then
      begin
         with VersionInfo do
         begin
            case dwPlatformId of
               VER_PLATFORM_WIN32s   : OSName := 'Win32s';
               VER_PLATFORM_WIN32_WINDOWS : OSName := 'Windows 95';
               VER_PLATFORM_WIN32_NT      : OSName := 'Windows NT';
            end; // case dwPlatformId
           // Result := OSName + ' Version ' + IntToStr( dwMajorVersion ) + '.' + IntToStr( dwMinorVersion ) +
             //         #13#10' (Build ' + IntToStr( dwBuildNumber ) + ': ' + szCSDVersion + ')';
             Result:= OSName;
         end; // with VersionInfo
      end // if GetVersionEx
   else
      Result := '';
end;

//--------- Procedure for windowsXP -------------------
Procedure Set_IP_AND_MASKXP(IP,Mask: String);
 var
 i,NumDev: integer;
 p: Pchar;
 s: string;
begin
//Initialization----------------------------------------
s:='netsh interface ip set address "Подключение по локальной сети" source=static addr='+IP+' mask='+Mask;
p:=pchar(s);
WinExec( @p[0], sw_show);
beep;
end;
//--------- Procedure for windows98 -------------------
Procedure Set_IP_AND_MASK98(IP,Mask: String);
 var
 i,NumDev: integer;
begin
//Initialization----------------------------------------
Keyslist:=TstringList.Create;
Registry1:=TRegistry.Create;
//Detect net devices------------------------------------
Registry1.RootKey:= hkey_local_machine;
Registry1.OpenKey('System\CurrentControlSet\Services\Class\Net',True);
Registry1.GetKeyNames(Keyslist);
Registry1.CloseKey;
//Detect phisical net device-----------------------------
  For I:=0 to KeysList.Count-1 do
   Begin
Registry1.OpenKey('System\CurrentControlSet\Services\Class\Net\'+KeysList.Strings[i],True);
If Registry1.ValueExists('IOBaseAddress')=True Then NumDev:=I;
Registry1.CloseKey;
   End;
//Open device  & set setings------------------------------
Registry1.OpenKey('System\CurrentControlSet\Services\Class\NetTrans\'+KeysList.Strings[NumDev],True);
Registry1.WriteString('IPAddress',IP);
Registry1.WriteString('IPMask',Mask);
Registry1.CloseKey;
//Deinitialization--------------------------------------
Registry1.Free;
Keyslist.Free;
Beep;
MessageDlg('Все изменения вступят в силу только после перезагрузки.', mtInformation, [mbOk], 0);
end;
Procedure Set_IP_AND_MASK (IP,Mask: String);
var
s: string;
begin
S:=GetWinVersion;
if S='Windows 95' Then Set_IP_AND_MASK98(IP,Mask);
if S='Windows NT' Then Set_IP_AND_MASKXP(IP,Mask);
end;
end.

[Denager]

В сторону Netsh интерфейса IP я уже копал, в итоге IP адрес не меняется, хотя синтаксис 1:1, проверял.
По существу, нашел процедуру смены IP, но там необходимо указывать индекс сетевого адаптера, а вот определение его вызвало новую проблему - как реализовать => Может у кого есть код, определения индексов всех сетевых адаптеров, установленныйх в системе

[ZBEP]

Вот программка ближе к варианту Terran'а, работает так:
Через заданное количество времени пингует указанный адрес, если не пингуется (4 неудачи подряд), то изменяет IP адрес (по очереди в заданном диапазоне).

Программа смены IP
Исходники

п.с.
конечно тема старая, но вдруг кому-нибудь будет интересно.

[Sensizu]

Такой вот вопрос: а как увидеть изменения?
Стандартный способ функции getlocalip всё-равно выбивает старый IP-адрес. =(

[ZBEP]

Сообщение от Sensizu

Такой вот вопрос: а как увидеть изменения?
Стандартный способ функции getlocalip всё-равно выбивает старый IP-адрес. =(

Странно, у мя работает..

function GetLocalIP: String;
const WSVer = $101;
var wsaData: TWSAData; P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result:= '';
if WSAStartup(WSVer, wsaData)=0 then begin
if GetHostName(@Buf, 128)=0 then begin
P:=GetHostByName(@Buf);
if P<>nil then Result:= iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;

Edit2.Text:=GetLocalIP;

[A_R_S2012]

Сообщение от ZBEP

Странно, у мя работает..

function GetLocalIP: String;
const WSVer = $101;
var wsaData: TWSAData; P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result:= '';
if WSAStartup(WSVer, wsaData)=0 then begin
if GetHostName(@Buf, 128)=0 then begin
P:=GetHostByName(@Buf);
if P<>nil then Result:= iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;

Edit2.Text:=GetLocalIP;

Сохраняет ip и т.д. в файл?