eigene ip adresse ändern

[MagicAndre1981]

Hi,

Sakura hat hier ein Paar API Befehle zum Thema IP Adresse ändern aufgelistet.

Mfg
André

[GeorgPeifer]

Erst Betriebssystem rausfinden (Zur Sicherheit), dann mit WinExec netsh aufrufen - habs nur mit XP getestet...

Delphi-Quellcode:

const
  { operating system (OS)constants }
  cOsUnknown  = -1;
  cOsWin95    =  0;
  cOsWin98    =  1;
  cOsWin98SE  =  2;
  cOsWinME    =  3;
  cOsWinNT    =  4;
  cOsWin2000  =  5;
  cOsXP       =  6;

function GetOperatingSystem: Integer;
var
  osVerInfo: TOSVersionInfo;
  majorVer, minorVer: Integer;
begin
  Result := cOsUnknown;
  { set operating system type flag }
  osVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(osVerInfo) then
  begin
    majorVer := osVerInfo.dwMajorVersion;
    minorVer := osVerInfo.dwMinorVersion;
    case osVerInfo.dwPlatformId of
      VER_PLATFORM_WIN32_NT: { Windows NT/2000 }
        begin
          if majorVer <= 4 then
            Result := cOsWinNT
          else if (majorVer = 5) and (minorVer = 0) then
            Result := cOsWin2000
          else if (majorVer = 5) and (minorVer = 1) then
            Result := cOsXP
          else
            Result := cOsUnknown;
        end;
      VER_PLATFORM_WIN32_WINDOWS:  { Windows 9x/ME }
        begin
          if (majorVer = 4) and (minorVer = 0) then
            Result := cOsWin95
          else if (majorVer = 4) and (minorVer = 10) then
          begin
            if osVerInfo.szCSDVersion[1] = 'A' then
              Result := cOsWin98SE
            else
              Result := cOsWin98;
          end
          else if (majorVer = 4) and (minorVer = 90) then
            Result := cOsWinME
          else
            Result := cOsUnknown;
        end;
      else
        Result := cOsUnknown;
    end;
  end
  else
    Result := cOsUnknown;
end;

function WindowsDirectory:string;
var WinDir : PChar;
begin
  WinDir:=StrAlloc(Max_Path);
  try
    GetWindowsDirectory(WinDir,Max_Path);
    Result:=(String(WinDir))+'\';
  finally
    StrDispose(WinDir);
  end;
end; {WindowsDirectory}


procedure TForm1.IPLabelClick(Sender: TObject);
var windir:string;
    os:integer;
begin
  os:=GetOperatingSystem;
  If os=cOsWin95   then exit;
  If os=cOsWin98   then exit;
  If os=cOsWin98SE then exit;
  If os=cOsWinME   then exit;
  If os=cOsWinNT   then windir:=WindowsDirectory+'system32\';
  If os=cOsWin2000 then windir:=WindowsDirectory+'system32\';
  If os=cOsXP      then windir:=WindowsDirectory+'system32\';
  WinExec(PChar(windir+'netsh interface ip set address name = "LAN-Verbindung" source = static addr = 192.168.1.28 mask = 255.255.255.0'),SW_SHOWNORMAL);
end;

[mh166]

ARGH! Wie lange soll das denn noch dauern? Es sollte doch inzwischen nun auch mal zu den letzten durchgekommen sein, dass WinExec nur noch zur Abwärtskompatibilität zu 16bit-Programmen da is!!!

Zitat von Der PSDK:

Note This function is provided only for compatibility with 16-bit Windows. Applications should use the CreateProcess function.

Nehmt ShellExecute oder CreateProcessdafür. Mensch....

mfg, mh166

[GeorgPeifer]

dann schreib das doch bitte mal um, statt zu meckern

[Van HelF]

hallo leute, kann mir jemand sagen, wie ich mit der netsh funktion einen DNS Server setzen kann ?!

mein code, funktioniert nur leider nicht
(shellexecute)
netsh set dns "LAN-Verbindung" static 192.168.0.10

[Van HelF]

ok habe das problem mit

Delphi-Quellcode:

    ShellExecute(0,Nil,PChar('netsh'),
                     Pchar(' interface ip set dns "'+net.name+'" '+net.DNSmode+' '+net.PDNS+' primary'),
                     Pchar('C:\StartDir'),SW_HIDE);

lösen können. nur kann ich damit nur den ersten DNS Server setzen, wie kann ich die einstellungen für den 2. vornehmen ?!
(secondary geht nicht)

[Christian Seehase]

Moin Van HelF,

das müsste eigentlich mit "add dns" statt "set dns" gehen.
Zumindest die Hilfe von XP ist da auskunftsfreudig.

[danku]

Zitat von GeorgPeifer:

Erst Betriebssystem rausfinden (Zur Sicherheit), dann mit WinExec netsh aufrufen - habs nur mit XP getestet...

Delphi-Quellcode:

const
  { operating system (OS)constants }
  cOsUnknown  = -1;
  cOsWin95    =  0;
  cOsWin98    =  1;
  cOsWin98SE  =  2;
  cOsWinME    =  3;
  cOsWinNT    =  4;
  cOsWin2000  =  5;
  cOsXP       =  6;

...


procedure TForm1.IPLabelClick(Sender: TObject);
var windir:string;
    os:integer;
begin
  os:=GetOperatingSystem;
  If os=cOsWin95   then exit;
  If os=cOsWin98   then exit;
  If os=cOsWin98SE then exit;
  If os=cOsWinME   then exit;
  If os=cOsWinNT   then windir:=WindowsDirectory+'system32\';
  If os=cOsWin2000 then windir:=WindowsDirectory+'system32\';
  If os=cOsXP      then windir:=WindowsDirectory+'system32\';
  WinExec(PChar(windir+'netsh interface ip set address name = "LAN-Verbindung" source = static addr = 192.168.1.28 mask = 255.255.255.0'),SW_SHOWNORMAL);
end;

wie kann ich erreichen das die statische adresse in der WINEXEC-Anweisung die Variable inputstring übernimmt?

Delphi-Quellcode:

  InputString:= InputBox('Neue IP-Adresse', '', edlocalip.text);
  edlocalip.Text := inputstring;

  WinExec(PChar(windir+'netsh interface ip set address name = "LAN-Verbindung" source = static addr = 192.168.1.28 mask = 255.255.255.0'),SW_SHOWNORMAL);

[danku]

hat keiner eine lösung?

[Klaus01]

Sollte doch so gehen, oder nicht?

Delphi-Quellcode:

InputString:= InputBox('Neue IP-Adresse', '', edlocalip.text); 
  edlocalip.Text := inputstring; 

  WinExec(PChar(windir+'netsh interface ip set address name = "LAN-Verbindung" source = static addr = '+inputstring+ ' mask = 255.255.255.0'),SW_SHOWNORMAL);

Grüße
Klaus