Mac-Adresse

[Thomas Grünig]

Hallo,<br>
kann mir jemand sagen, wie man die Mac-Adresse der Netzwerkkarte im eigenen Rechner ermitteln kann, OHNE auf Netbios-calls zurückzugreifen?<br>

mfg, Thomas

[Bernhard Berger]

Ich empfehle dir die <b>Jedi Code Library</b> (JCL) unter http://www.delphi-jedi.org/Jedi:CODELIBJCL:403520026 zu holen. In der Unit <b>JclSysInfo</b> gibt es dann eine <b>GetMacAddresses</b>-Funktion, die genau deine gewünschte Information holt. Da die Jcl Open-Source ist, findest du dort auch den Quellcode.<p>
Gruß,<br>
Bernhar

[Thomas Grünig]

Hallo Bernhard,<br>
Danke für den Tip, aber auch in der Jedi Code Lib wird die Mac-Adresse über das Netbios ermittelt. Das Problem mit Netbios ist, dass es oft nicht installiert ist. Es muss also noch eine andere Möglichkeit geben.<br>

mfg, Thoma

[Andreas Kosch]

Hallo,

früher gab es Möglichkeit, die MAC-Adresse über die <b>GUID</b> (Global Unique Identier) zu ermitteln:
<pre>
uses ComObj, ActiveX;

function GetMAC: String;
var
sTmp : String;
i : Integer;
aGUID : TGUID;
begin
OleCheck(CoCreateGUID(aGUID));
sTmp := '';
for i:= 2 to 7 do
sTmp := sTmp + IntToHex(aGUID.D4[i],2);
Result := sTmp;
end;
</pre>
Dann allerdings kam der Melissa-Virus. Und bei der Suche nach dem Verursacher des Melissa-Viruses (der über die GUID des Word-Dokuments gefunden wurde) kam heraus, das Microsoft im Word-Dokument die GUID mit abspeichert. Und da Microsoft deshalb massiv des Verstosses gegen den Datenschutz beschuldigt wurde, wurde/wird/soll demnächst die Generierung der GUID geändert werden, so dass die MAC-Adresse nicht mehr direkt über diesen Weg ausgelesen werden kann.

Microsoft hat in seiner Knowlegde Base einen Beitrag veröffentlich, nach dem nur noch der NetBIOS-Aufruf (Network Basic Input/Output System) der einzige legale Weg ist. Dies sollte auch dann funktioneren, wenn das NetBEUI-Protokoll nicht aktiviert wurde

[Robert Marquardt]

Eine Warnung: Die JEDI Code Library ist noch laengst nicht fertig. Es sind definitiv noch massive Bugs enthalten. Die Veroeffentlichung ueber die Website dient zum bequemen Download fuer die Tester