投递新闻
您所在的位置:鲤鱼首页 >全国计算机等级考试NCRE新闻 >获得远程或本地机器的网卡的MAC
| 您知道吗?鲤鱼网被评为2009年度互联网考生最喜欢网站。 |
【网络综合 - 全国计算机等级考试(NCRE)指南】:
下面的函数以\’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