Obtener la dirección MAC (MAC ADDRESS)

[marcial]

Hola a todos:
El problema que tiene el GetMacAdress para identificar un equipo por su tarjeta de red es que si no está el cable conectado no la reconoce (al menos en W7)
¿Conoce alguno la solución?
Muchas Gracias
Marcial

[[rretamar]]

Un código que usé una vez:

Código Delphi [-]
Function GetPrimaryNicMacAddress: String;
Type
  TGUID = Record
    A, B: word;
    D, M, S: word;
    MAC: Array[ 1..6 ] Of byte;
  End;
Var
  UuidCreateFunc: Function(Var guid: TGUID): HResult; stdcall;
  handle: THandle;
  g: TGUID;
  WinVer: _OSVersionInfoA;
  i: integer;
  //  ErrCode : HResult;
Begin
  Try
    WinVer.dwOSVersionInfoSize := sizeof(WinVer); // Tamaño
    getversionex(WinVer);  // Obtiene info del Windows en uso
    handle := LoadLibrary('RPCRT4.DLL'); // Obtiene el handle de la DLL
    If WinVer.dwMajorVersion >= 5 Then {Windows 2000 ó superior}
      @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreateSequential')
    Else // (Win98 o menor)
      @UuidCreateFunc := GetProcAddress(Handle, 'UuidCreate');
    UuidCreateFunc(g); // Obtiene la info
    Result := '';
    For i := 1 To 6 Do Result := Result + IntToHex(g.MAC[ i ], 2); // Concatena la MAC Address
  Except
    Result := ''; // Resultado nulo
  End;
End;

[marcial]

Gracias Rretamar, con esta rutina no hace falta tener el cable de red enchufado ni el NB30 en el uses

[[rretamar]]

Empezado por marcial

Gracias Rretamar, con esta rutina no hace falta tener el cable de red enchufado ni el NB30 en el uses

¿ Es una pregunta ?

No, no se necesita que la placa de red esté funcionando. Basta con que esté instalada para obtener su dirección MAC.

[alquimista]

He probado esta rutina y no muestra la mac de la tarjeta de red instalada..

En mi caso tengo instalada una maquina virtual y obtiene la mac de la tarjeta virtual...


Alguien conoce una solución que obtenga la mac de la tarjeta real???
gracias