获得远程或本地机器的网卡的MAC

　2006-02-04 13:46:01　来源：WEB开发网　闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹

闂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗〒姘ｅ亾妤犵偛顦甸弫鎾绘偐閹绘帞鈧參姊哄Ч鍥х仼闁诲繑鑹鹃悾鐑藉蓟閵夛妇鍘甸梺瑙勵問閸犳牠銆傛總鍛婄厱閹艰揪绱曟牎闂侀潧娲ょ€氫即鐛幒妤€绠ｆ繝闈涘暙娴滈箖鏌ｉ姀鈶跺湱澹曟繝姘厵闁绘劦鍓氶悘杈ㄤ繆閹绘帞澧涚紒缁樼洴瀹曞崬螖閸愬啠鍓濈换娑樼暆婵犱胶鏁栫紓浣介哺閹瑰洤鐣烽幒鎴僵闁瑰吀鐒﹂悗鎼佹⒒娴ｇ儤鍤€闁搞倖鐗犻獮蹇涙晸閿燂拷

濠电姷鏁告慨鐑藉极閸涘﹥鍙忔い鎾卞灩缁狀垶鏌涢幇闈涙灈鐎瑰憡绻冮妵鍕箻鐎靛摜鐣奸梺纭咁潐濞茬喎顫忕紒妯肩懝闁逞屽墮宀ｈ儻顦查悡銈夋煏閸繃鍋繛宸簻鎯熼梺瀹犳〃閼冲爼宕濋敃鈧—鍐Χ閸℃鐟愰梺鐓庡暱閻栧ジ宕烘繝鍥у嵆闁靛骏绱曢崢顏堟⒑閹肩偛鍔楅柡鍛⊕缁傛帟顦寸紒杈ㄥ笚濞煎繘鍩℃担閿嬵潟闂備浇妗ㄩ悞锕傚箲閸ヮ剙鏋侀柟鍓х帛閺呮悂鏌ㄩ悤鍌涘闂傚倸鍊搁崐鎼佸磹妞嬪孩顐芥慨姗嗗厳缂傛氨鎲稿鍫罕闂備礁婀遍搹搴ㄥ窗閺嶎偆涓嶆い鏍仦閻撱儵鏌ｉ弴鐐测偓鍦偓姘炬嫹　　闂傚倸鍊搁崐鎼佸磹閻戣姤鍤勯柤鍝ユ暩娴犳氨绱撻崒娆掑厡缂侇噮鍨堕妴鍐川閺夋垹鍘洪悗骞垮劚椤︻垶宕￠幎鑺ョ厪闊洦娲栨牎闂佽瀵掗崜鐔奉潖閾忓湱纾兼俊顖氭惈椤矂姊虹拠鑼婵ǜ鍔戦崺鈧い鎺嶇閸ゎ剟鏌涢幘璺烘瀻妞ゎ偄绻愮叅妞ゅ繐瀚悗顓烆渻閵堝棙绀€闁瑰啿閰ｅ畷婊勫鐎涙ǚ鎷洪梻渚囧亞閸嬫盯鎳熼娑欐珷妞ゆ柨澧界壕鐓庮熆鐠虹尨鍔熺紒澶庢閳ь剚顔栭崰鏍€﹂柨瀣╃箚婵繂鐭堝Σ鐑芥⒑缁嬫鍎愰柟鐟版搐铻為柛鎰╁妷濡插牊绻涢崱妤冪婵炲牊锕㈠缁樻媴妞嬪簼瑕嗙紓鍌氱М閸嬫挻绻涚€涙ḿ鐭ら柛鎾跺枛瀹曟椽鍩€椤掍降浜滈柟鐑樺灥閳ь剙缍婂鎶筋敆閸曨剛鍘遍柣搴秵娴滅兘鐓鍌楀亾鐟欏嫭纾婚柛妤€鍟块锝夊磹閻曚焦鞋闂備礁鎼Λ瀵哥不閹捐钃熼柕濞炬櫆閸嬪棝鏌涚仦鍓р槈妞ゅ骏鎷�

核心提示：下面的函数以'XX-XX-XX-XX-XX-XX' 的格式返回远程或本地机器的MAC地址，Function to return the MAC address of a remote or local machine in the format 'XX-XX-XX-XX-XX-XX' 返

下面的函数以'XX-XX-XX-XX-XX-XX' 的格式返回远程或本地机器的MAC地址。

Function to return the MAC address of a remote or local machine in the format 'XX-XX-XX-XX-XX-XX'

返回的MAC地址是一个能用在多个方面的唯一标识。使用方法：
ShowMessage(GetMacAddress('\\MHEYDON');
输出'00-02-08-E7-99-6B'

// ======================================================================
//返回值是主机AServerName的MAC地址
//AServerName参数的格式为'\\ServerName' 或者 'ServerName'
//参数ServerName为空时返回本机的MAC地址
//MAC地址以'XX-XX-XX-XX-XX-XX'的格式返回
// ======================================================================

function GetMacAddress(const AServerName : string) : string;
type
　　 TNetTransportEnum = function(pszServer : PWideChar;
　　　　　　　　　　　　　　　　 Level : DWord;
　　　　　　　　　　　　　　　　 var pbBuffer : pointer;
　　　　　　　　　　　　　　　　 PRefMaxLen : LongInt;
　　　　　　　　　　　　　　　　 var EntriesRead : DWORD;
　　　　　　　　　　　　　　　　 var TotalEntries : DWORD;
　　　　　　　　　　　　　　　　 var ResumeHandle : DWORD) : DWORD; stdcall;

TNetApiBufferFree = function(Buffer : pointer) : DWORD; stdcall;

PTransportInfo = ^TTransportInfo;
　　 TTransportInfo = record
　　　　　　　　　　　 quality_of_service : DWORD;
　　　　　　　　　　　 number_of_vcs : DWORD;
　　　　　　　　　　　 transport_name : PWChar;
　　　　　　　　　　　 transport_address : PWChar;
　　　　　　　　　　　 wan_ish : boolean;
　　　　　　　　　　 end;

var E,ResumeHandle,
　 EntriesRead,
　 TotalEntries : DWORD;
　 FLibHandle : THandle;
　 sMachineName,
　 sMacAddr,
　 Retvar : string;
　 pBuffer : pointer;
　 pInfo : PTransportInfo;
　 FNetTransportEnum : TNetTransportEnum;
　 FNetApiBufferFree : TNetApiBufferFree;
　 pszServer : array[0..128] of WideChar;
　 i,ii,iIdx : integer;
begin
sMachineName := trim(AServerName);
Retvar := '00-00-00-00-00-00';

// Add leading \\ if missing
if (sMachineName <> '') and (length(sMachineName) >= 2) then begin
　 if copy(sMachineName,1,2) <> '\\' then
　　 sMachineName := '\\' + sMachineName
end;

// Setup and load from DLL
pBuffer := nil;
ResumeHandle := 0;
FLibHandle := LoadLibrary('NETAPI32.DLL');

// Execute the external function
if FLibHandle <> 0 then begin
　 @FNetTransportEnum := GetProcAddress(FLibHandle,'NetWkstaTransportEnum');
　 @FNetApiBufferFree := GetProcAddress(FLibHandle,'NetApiBufferFree');
　 E := FNetTransportEnum(StringToWideChar(sMachineName,pszServer,129),0,
　　　　　　　　　　　　　 pBuffer,-1,EntriesRead,TotalEntries,Resumehandle);

　 if E = 0 then begin
　　 pInfo := pBuffer;

// Enumerate all protocols - look for TCPip
　　 for i := 1 to EntriesRead do begin
　　　 if pos('TCPIP',UpperCase(pInfo^.transport_name)) <> 0 then begin
　　　　 // Got It - now format result 'xx-xx-xx-xx-xx-xx'
　　　　 iIdx := 1;
　　　　 sMacAddr := pInfo^.transport_address;

　　 for ii := 1 to 12 do begin
　　　　　 Retvar[iIdx] := sMacAddr[ii];
　　　　　 inc(iIdx);
　　　　　 if iIdx in [3,6,9,12,15] then inc(iIdx);
　　　　 end;
　　　 end;

　 inc(pInfo);
　　 end;
　　 if pBuffer <> nil then FNetApiBufferFree(pBuffer);
　 end;

　 try
　　 FreeLibrary(FLibHandle);
　 except
　　 // 错误处理
　 end;
end;
result:=Retvar;
end;