获得远程或本地机器的网卡的MAC计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:36:36
来源 100Test.Com百考试题网

　　下面的函数以\’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.