netzwerkadapter in listbox auflisten

[madfighter04]

guten morgen leutz,
hab schon wieder nen problem, wie kann ich meine netzwerkadapter also wlan karte, lan-verbindung 1 usw. in einer listbox oder am liebsten combobox auf listen, so das ich sie auswählen kann?? hab dazu noch nichts gefunden.

[Cyberbob]

In der Registry findest du zumindest schonmal eine Auflistung der Netzwerk-Adapter. Unter: HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Contro l\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}
Um eine filterung musst du dich allerdings selbst kümmern.
Kam eben über google rein: http://www.microsoft.com/technet/pro....mspx?mfr=true

[Luckie]

Zitat von madfighter04:

hab dazu noch nichts gefunden.

netzwerkadapter

[semo]

Geht das nicht auch per WMI (Windows Management Instrumentation)?

[RWarnecke]

Zitat von M. Hassmann:

Geht das nicht auch per WMI (Windows Management Instrumentation)?

Ja geht, siehe Link von Luckie.

[madfighter04]

problem is, wmi is mir jetzt auf die schnelle bisschen kompliziert, zweites problem es müsste unter win xp und win vista laufen, das script, den ich bin dabei ein programm zuschreiben was per buttondruck einem netzwerk adapter eine feste ip vergibt und da ich schreibfaul bin möchte ich nicht die adapter einzeln eintragen sondern in einer combobox auswählen können.

[quendolineDD]

Also, um auf die Namen der Interfaces zugreifen zu können kannst du ja über die Funktion von Windows GetAdaptersAddresses zugreifen...
Einfach die im Anhang befindliche Unit in dein Projekt mit einfügen.

Dann kannst du so die Namen in einer ListBox auflisten:

Delphi-Quellcode:

var
adapter, e : PIP_ADAPTER_ADRESSES;
BUFFER, ERROR : DWORD;

begin
ERROR := GetAdaptersAddresses(0, 0, nil, nil, @buffer);
if error <> ERROR_BUFFER_OVERFLOW then
  ShowMessage('not enuf mem');
adapter := AllocMem(buffer);
ERROR := GetAdaptersAddresses(0, 0, nil, adapter, @buffer);
if ERROR = ERROR_SUCCESS then begin
e := adapter;
listBox1.Items.Add(e.FriendlyName);
    while e.Next <> nil do begin
       listBox1.Items.Add(e.next.FriendlyName);
       e := e.Next;
    end;
  end;
end;

Der Quelltext zum Aufruf entstammt in Teilen aus diesem Thread. Dank an RWarnecke!

Evtl. solltest du auch den Thread hier im Auge behalten um Änderungen an der Unit mit für deine zu aktualisieren.

MfG

[madfighter04]

thx werd das mal probieren, wenn ich aus der schule komme^^