macOS Retrieve MAC address

From Free Pascal wiki
Revision as of 07:43, 16 February 2020 by Trev (talk | contribs) (New macOS page)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search
macOSlogo.png

This article applies to macOS only.

See also: Multiplatform Programming Guide

Simple Free Pascal command line program to retrieve the MAC address for the specified network interface or, if no network interface is specified, retrieve the MAC addresses for all the network interfaces.

Program mac;

{$mode objfpc}{$H+}

Uses 
  SysUtils,
  StrUtils,
  Process,
  Classes;

function GetmacOSMacAddress : string;
var
   theProcess		 : TProcess;
   theOutput		 : TStringList;
   i, j, theLine, thePos : integer;

begin
   theProcess := TProcess.Create(nil);
   theProcess.Executable := 'ifconfig';

   // If interface specified, then retrieve its MAC address
   // Otherwise, retrieve MAC addresses for all interfaces
   if(ParamStr(1) <> '') then
      theProcess.Parameters.Add(ParamStr(1));

   theProcess.Options := theProcess.Options + [poWaitOnExit, poUsePipes];
   theProcess.Execute;
   theOutput := TStringList.Create;
   theOutput.LoadFromStream(theProcess.Output);

   theLine := -1;
   for i := 0 to theOutput.Count - 1 do
     begin
       j := pos('ether', theOutput.Strings[i]);
       if (j > 0) then
         begin
           theLine := i;
           thePos := j + length('ether') + 1;

           if(theLine > -1) then
              begin
                Result := UpperCase(ExtractSubStr(theOutput.Strings[theLine], thePos, [' ']));
                WriteLn(Result);
              end;
         end;
     end;

   // Always free the memory used
   theOutput.Free;
   theProcess.Free;
end;

begin
   GetmacOSMacAddress;
end.