MAC ermitteln

[Masterof]

Hallo!!

Wie ermittele ich am besten die Mac-Adresse eines Rechners?
Oder bzw welche Dll muss ich ensprechen?

MfG Master :gruebel:

[Phoenix]

Bemüh mal die Suche in der MAC Adresse ermitteln und schau Dir meinen oder Sakuras Beitrag zur Code Library an.

[Sharky]

Hai Masterof,

die Foren-Suche hat mir z.B. diesen Beitrag in der Code-Library gezeigt.

[Masterof]

Hallo!!

Ich habe in meinen Büchern nochmal geschaut, und bin auf dieses gestossen. Das ist etwas einfacher.

Source:

Delphi-Quellcode:

Type 
  TGUID = Record 
   a ,b, d, m, s : word; 
   Mac : Array[1..16] of byte; 
end; 

function CoCreateGuid(var GUID : TGUID): HResult; stdcall; 
far external 'OLE32.dll'; 

function GetMacAdress : string; 
var g: TGUID; 
    i: integer; 
begin 
CocreateGuid(g); 
result := ''; 
for i:= 1 to 6 do 
Result := Result + IntToHex(g.Mac[i], 2) + '-'; 
Result[length(result)] := #0; 
end; 




procedure Tfrmmain.btmacClick(Sender: TObject); 
begin 
lblmac.Caption:= GetMacAdress; 
end;

Danke!

MfG Masterof

[edit=Sharky]Delphi-Tags gesetzt. Bitte beim nächsten mal selber machen ;-) Mfg, Sharky[/edit]

[Phoenix]

Das hat nur den Nachteil, das das Errgebnis nicht mehr stimmt, wenn der Rechner mehrere Netzwerkkarten oder keine hat. Bei keiner wird der Wert der da rauskommt halt irgendwie Berechnet und wenn man mehrere hat kommt da auch nix Sinnvolles bei raus, weil alle Adressen irgendwie zusammengeschustert werden.

[The-X]

Damit ermittelst du aber nicht die Mac-Adresse eines Netzwerkadapters :gruebel:
mit CoCreateGUID erzeugst du siehe SDK

Zitat:

Zitat von SDK

CoCreateGuid
------------
Creates a GUID, a unique 128-bit integer used for CLSIDs and interface identifiers.
------------
The CoCreateGuid function calls UuidCreate (documented in the RPC Programmer's Guide and Reference), which creates a GUID, a globally unique 128-bit integer used for CLSIDs and interface IDs. To a very high degree of certainty, this function returns a unique value - no other invocation, on the same or any other system (networked or not) should return the same value.

zudem ist mir aufgefallen, das bei Mehrmaligem Aufruf dieser Funktion das höchstwertige Byte inkrementiert wird, was somit nicht der MAC entsprechen kann :!: :!: :!:

[Phoenix]

Die MAC(s), sofern vorhanden, werden da nur mit reingerechnet. Und wenn man nicht die ganze GUID nimmt sondern nur den MAC-Teil hat man in 99% aller Fälle glück und erwischt tatsächlich die eigene MAC, sofern man nur eine Karte im System betreibt.

Wie gesagt: Der Weg über die WMI ist sicherer. Damit bekommt man zu 100% die Info, ob man eine Netzwerkkarte hat und weren MAC's - und kann die sogar den einzelnen Interfaces korrekt zuordnen.

[Christian Seehase]

Moin Phoenix,

Zitat:

Zitat von Phoenix

...sondern nur den MAC-Teil hat man in 99% aller Fälle glück und erwischt tatsächlich die eigene MAC...

welchen MAC-Teil?

Die Funktion CoCreateGuid liefert ja einen Global Unique Identifier zurück, der unabhängig davon ist ob überhaupt eine Netzwerkkarte im Rechner steckt.

[Phoenix]

Ein Teil des GUID ist die MAC-Adresse (sofern genau eine Karte vorhanden ist).
Aber wie gesagt: Das ist so ziemlich alles ausser zuverlässig.

[Christian Seehase]

Moin Phoenix,

und welcher Teil der GUID soll das sein?
Ich habe genau eine Netzwerkkarte im Rechner und erhalte keine GUID, die auch nur Teile der MAC-Adresse enthält.