Feststellen, ob Netzwerkkabel gezogen wurde?

[novabeat]

jo bitte poste doch mal deinen unsauberen weg !
kannst du auich mal den link zu dem C code posten ?? evtl kann der weiterhelfen !

[moritz]

Vielleicht hilft dir das ja (Das sollte die NDSI Seite sein): http://www.ndis.com/code_snippets/default.htm

[Kasoft]

So jetzt endlich aus dieser absolut langweiligen Sitzung raus...
Also die ganze Geschichte mit Netzwerkkabel raus rein läuft eigentlich
über die MediaSense API. Den Link zu dem C Code hat dir ja schon der
Moritz geschickt. Man sollte sich im klaren sein das MediaSense erst
seit Windows 2000 existiert. (NDIS 5) Nach langem suchen und studieren
der API hab ich mich dann doch beschlossen das alles komplett anders zu
machen :-) . Ihr dürft raten :-) die supertolle wunderschöne fehlerlose
Windows Registry hat nen Schlüssel in der sich beim einstecken und austecken
ein Wert ändert :-)
Ich poste mal den Code den ich damals zusammengefriemelt hab. Also ohne Garantie
as funktionstüchtigkeit etc... Rückmeldungen wären schön da ich knapp 2 Monate
mit der SenseAPI mich rumgeschlagen hab bevor ich dann doch zu dieser unüblichen
Lösung kam...

Delphi-Quellcode:

function NetworkConnect : Boolean;
var
  reg : TRegistry;
  i : Integer;
  NetworkCards : String;
begin
  result := false;
  reg := TRegistry.Create(KEY_READ);
  reg.RootKey := HKEY_LOCAL_MACHINE;
  for i := 0 to 15 do  //Mehr als 15 Netzwerkkarten sollte kein normaler Rechner haben...
  if reg.KeyExists('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\' +inttostr(i)) = true then  
  begin
    reg.OpenKey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\' +inttostr(i),false);
    NetworkCards := reg.ReadString('ServiceName');  
    break;
  end;

  if NetworkCards <> '' then
  begin
    reg.OpenKey('\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\'+NetworkCards,false);
    if reg.ReadString('DHCPDomain') <> '' then result := true else result := false;
  end;
  reg.Free;
end;

So also macht euch mal her über den Code ;-)

MfG
Kasoft

P.S.: Ich danke unsererm VB Programmierer aus unserer Abteilung für seine Supergeniale
unterstützung bei dem Problem ;-) Danke Thomas!

[novabeat]

also bei mir unter winXP funzt dieser Code nicht ! er gibt immer false zurück !

[Kasoft]

schau mal in der Registry ob die Sachen existieren.

[Kasoft]

was ich noch vergessen hab. Windows braucht eine kleine Weile bis er bemerkt das Kabel nicht
da ist. Also nicht rausziehen gleich anklicken und dann sagen geht net raus :-)

[MrKnogge]

kommt auf die Version an, meins (Windows XP) erkennt sofort, wenn ich ds Kabel ziehe.

[Kasoft]

Hab daheim WinXP. Da kann es verspätet kommen muss aber nicht. Im Geschäft
Win2k und es reagiert auch nicht schneller/langsamer als mein XP...

[moritz]

Tach,

aslo, ich hab mich mal damit beschäftigt, es passiert einiges in der Registry. Ich hab leider keine Zeit das auszuwerten, aber das würde ich auf jeden Fall mal als Ansatz verfolgen (Mittels RegMon).
Ansonsten wäre könntest du es evtl. damit lösen, wenn du alles 5 Sekunden die Netzwerk-IP prüfst, und sobald die 0 bzw. 0.0.0.0 ist dan PC ausschalten. Das wäre glaube ich das effektivste, denn sobald das Kabel steckt hat dein PC eine IP. (Zumindest wenn er so konifguriert ist...aber davon gehe ich bei euren Schulrechnern mal aus)

Gruß

[Phoenix]

Zitat:

Zitat von moritz

...damit lösen, wenn du alles 5 Sekunden die Netzwerk-IP prüfst, und sobald die 0 bzw. 0.0.0.0 ist dan PC ausschalten. Das wäre glaube ich das effektivste, denn sobald das Kabel steckt hat dein PC eine IP.

Das heisst aber nicht im Umkehrschluss, das der Rechner die IP verliert wenn das Kabel ausgesteckt wird. Der Rechner behält seine IP bei, bis er entweder neu verbunden wird und eine neue IP zugewiesen bekommt (will heissen, wenn der Netzwerkverkehr auf der alten IP nicht mehr funktioniert) oder bis der lease sowieso abläuft (bei DHCP, versteht sich).

Allerdings kann der Rechner (u.A. gerade in Schulnetzen bei je einem Subnet pro Klassenraum) statisch konfiguriert sei (macht zum Teil bei überschaubaren Subnets durchaus Sinn) - und dann hat der die IP sowieso immer, ob nun Kabel oder nicht.