Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi IP; BevorzugterDNS; Wins ändern (https://www.delphipraxis.net/116499-ip%3B-bevorzugterdns%3B-wins-aendern.html)

dUSER.th 30. Jun 2008 19:06


IP; BevorzugterDNS; Wins ändern
 
Hi DP Users

Ich habe ein Problem mit dem ändern der IP Adresse sowie Bevorzugter DNS Server.

>>Hintergrund:
Ich arbeite mit einem Notebook an mehreren Standorten mit Unterschiedlichen Servern und auch Unterschiedlichen IP Adressen. Bis her ist es so, dass ich diese Einstellungen manuell für den jeweiligen Standort ändere. Hierzu muss ich mich als Benutzer Abmelden und als Admin (Sicherheitsvorschrift) wieder Anmelden. IP Änderungen durchführen und die Anmeldung wieder ändern.
>> Stand:
Nun bastle ich schon eine ganze weile an einem Programm welches mir das erledigen soll.
Bestimmt sch 10 mal angefangen.
Momentan setze ich die „JvComputerInfoEx1“ Komponente ein mit der so einige Daten finde (IP, Host) ein. Aber mit der Komponente wird mir nicht der Bevorzugte Server (IP) angezeigt. Und ich weis auch noch nicht, ob ich mein Problem überhaupt damit lösen kann.

>> Mein Traum
Ich möchte die Ist Daten einlesen >> aus Regi??

Bsp.
IP = 192.168.2.100
DNS = 192.168.2.1
WINS= 192.200.2.1

Die Soll Daten
Bsp.
IP = 192.168.2.160
DNS = 192.168.2.2
WINS= 192.201.2.1

werden aus einer *.ini eingelesen und sollen dann in oder an die richtige Stelle der regi unter der verwendung eines anderen Benutzernamen (Admin) eingetragen werden.

Mit den Suchergebnissen im Forum bin ich auch nicht weiter gekommen.
Bin ich überhaupt auf dem richtigem weg?

Könnt Ihr mir da weiter helfen ich bin für alles offen.

Vielen Dank

mkinzler 30. Jun 2008 19:08

Re: IP; BevorzugterDNS; Wins ändern
 
Welches OS?

dUSER.th 30. Jun 2008 19:14

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo mkinzler

Ich habe auf meinem PC WINXP Prof.
wenn ich das Prog mal den fertig haben sollte und auch Funktioniert soll es auch unter W2K
zu einsatz kommen.

vielen Dank

mkinzler 30. Jun 2008 19:25

Re: IP; BevorzugterDNS; Wins ändern
 
Unter XP könntest du auch die integrierte "Alternative Netzwerkeinstellungen" verwenden.
Ansonsten würde ich nicht die Registry manipulieren, sondern die Windowws API verwenden
http://msdn.microsoft.com/en-us/library/aa365798(VS.85).aspx

dUSER.th 30. Jun 2008 19:40

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo mkinzler

vielen dank erst mal. echt super schnell.

Siehst Du die vielen Fragezeichen über meiner Birne?
Na ja da muss ich mich erst einmal durch beißen.
Sollte ich nicht weiter kommen, dann rufe ich noch mal.

bis die Tage oder Stunden.

gruß Detlef

RWarnecke 30. Jun 2008 20:34

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo, was hälst Du von dem Vorschlag DHCP-Server ?

dUSER.th 30. Jun 2008 20:38

Re: IP; BevorzugterDNS; Wins ändern
 
hallo Rolf
was genau willst Du mir damit sagen?

RWarnecke 30. Jun 2008 20:43

Re: IP; BevorzugterDNS; Wins ändern
 
Wenn Du in jedem Netz einen DHCP Server hast oder für alle Subnetze einen DHCP-Server hast, bräuchtest Du nicht das Programm, welches Dir immer die IP-Adresse umschreibt. Denn über den DHCP-Server kannst Du das direkt regeln, welche IP-Adresse Du bekommst, welche DNS-Server und welche WINS-Server. Damit brauchst Du nur noch Dein Notebook anschliessen und alles ist gut. Solltest Du bedingt durch eine Software eine Feste-IP Adresse brauchen, kannst Du das wiederum durch die MAC-Adresse von der Netzwerkkarte von Deinem Notebook regeln.

Edit: Zugegeben, das Programm ist sicherlich ein großer Lernfaktor, das will ich garnicht abstreiten. Aber für sowas würde ich persönlich auf den Dienst eines DHCP-Server zurückgreifen.

Edit2: Dieser Beitrag von Sakura könnte noch interessant sein für Dich.

dUSER.th 30. Jun 2008 20:52

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo Rolf

Die Idee ist super.
Wir haben aber (sorry hatte ich nicht erwähnt) verschiedene Servertypen von Novell, Linux, W2000. Alle Server sind verschiedentlich eingestellt und ich klaube nicht, dass die Server nur wegen mir umgestellt werden. (Sicherheitsvorschriften der einzelnen Firmen). Ich hatte das schon mal ganz leise angesprochen. War wohl zu leise.

Aber trotzdem danke für die Idee.

Gruß Detlef

Ps.: Netsh.EXE habe ich getestet. Soweit "OK" IP, und DNS wurden geändert nur leider auch nur unter Admin Anmeldung. :wall:

RWarnecke 30. Jun 2008 21:06

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo Detlef,

wenn ich das aus Deinem ersten Posting richtig verstanden habe, habt Ihr doch schon DNS laufen oder ? Wenn ja, setze auf dem gleichen Server noch einen DHCP-Dienst auf und konfiguriere den so, dass nur die genannten MAC-Adressen sich im Netz anmelden können. Damit solltest Du dann keine Probleme mehr haben.

Wenn das die Firmen aber nicht wollen (Sicherheitsvorschriften etc.) dann schaue Dir noch den Befehl netsh an. Diesen kannst Du mit Parametern füttern und so die IP-Adresse umstellen. Denn über einen Hier im Forum suchenShellExecute-Befehl ausgeführt und fertig ist Dein Programm.

Gruß

dUSER.th 30. Jun 2008 21:14

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo Rolf

Die Antworten haben sich wohl überschnitten.
Also das mit den DHCP kann ich vergessen. (schade) Ich müsste den netsh.exe Befehl nur noch unter den Admin Benutzer zum laufen bekommen und ich würde abheben.

Gruß Detlef

Ps: Ich muss erst einmal die Augen zudrücken. Ich sehe schon alles im Quatrat.

bis Morgen da mach ich weiter.

RWarnecke 30. Jun 2008 21:34

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo Detlef,

mit diesem Code-Library Eintrag solltest Du es ausführen können.

dUSER.th 1. Jul 2008 19:46

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo Rolf

vielen Dank für deine Bemühungen die mir sehr gut weiter geholfen haben.
Auch vielen Dank an Luckie.

Ich hänge aber irgendwie an der ShellExecute fest.


Delphi-Quellcode:
procedure TForm1.suiButton5Click(Sender: TObject);
begin
  ShellExecute(Application.Handle,'open','C:\Windows\System32\netsh',
                PChar('set address name= "WLAN Netzwerkverbindung" '+
                ' source=static '+
                ' addr = '+ Edit5.Text +
                ' mask = '+ Edit6.Text), nil, SW_SHOWNORMAL);
end;



Also das "cmd" Fenster wird kurz angezeigt zu kurz um zu sehen, ob ein Fehler vorhanden ist oder nicht. Mit "Pause" kann ich es anhalten, hilf mir aber nicht. Was könnte mein Fehler sein? Ich suche immer noch in der Hilfe von "netsh" komme aber momentan nicht weiter.


Grüße Detlef

ringli 1. Jul 2008 20:09

Re: IP; BevorzugterDNS; Wins ändern
 
Wenn du es nicht auf Biegen und Brechen selbst programmieren willst, würde ich vorschlagen das du dir mal NetSetMan oder MobileNetSwitch ansiehst.

dUSER.th 1. Jul 2008 20:22

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo ringli

Also ich muss sagen, dass ist das was ich suche zu mindestens auf den ersten blick.
Aber ich bin schon so weit gekommen das ich mein kleines Programm nicht so schnell aufgeben möchte. Auch wenn mir die Birne Kocht und meine Finger krumm sind.

Nur wenn ich scheitere, dann werde ich darauf zurück greifen.

Aber vielen Dank für den Tipp.

Gruß Detlef

dUSER.th 2. Jul 2008 22:25

Re: IP; BevorzugterDNS; Wins ändern
 
Hallo DB Users

An alle ein großes Dankeschön.

Ich denke mal, ich habe mein kleines Programm hin bekommen. :mrgreen:
Alle Einstellungen werden so übernommen wie sie aus *.txt geladen werden.
Nun muss ich noch an der Form Basteln. Na ja das bekomme ich auch noch hin.

Ich habe sehr viele Nützliche Tipps hier im Forum darüber gefunden. Es ist halt nur lustig, nach welchen Kriterien man hier suchen muss oder kann, um etwas über „IP; WINS; DNS Einstellung“ finden zu können. Ich fand am Anfang so mansch Antwort von den einen oder anderen so… einwenig Trocken. Aber mit der weile kann ich sagen das suchen und Insbesondere auch finden im Forum auch spaß macht. Mann findet echt super Ideen die man vielleicht auch mal einsetzen kann.
Nur mal ein kleiner Anstoß für die Jenige, die sich gleich Beleidigt Fühlen. Davon scheint es hier eine menge zugeben.

Also Vielen Dank noch mal an alle
inb. Rolf; mkinzler; Luckie und, und und…. :thumb:


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:51 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz