ASP想要获得网卡的物理地址还真不容易啊，找了很久才找到的代码，给大家分享一下。
MAC，全称 Media Access Control
Mac地址就是在媒体接入层上使用的地址，通俗点说就是网卡的物理地址，现在的Mac地址一般都采用6字节48bit（在早期还有2字节16bit的Mac地址）。
对于MAC地址，由于我们不直接和它接触，所以大家不一定很熟悉。在OSI（Open System Interconnection，开放系统互连）7层网络协议（物理层，数据链路层，网络层，传输层，会话层，表示层，应用层）参考模型中，第二层为数据链路层（Data Link）。它包含两个子层，上一层是逻辑链路控制（LLC：Logical Link Control），下一层即是我们前面所提到的MAC（Media Access Control）层，即介质访问控制层。所谓介质（Media），是指传输信号所通过的多种物理环境。常用网络介质包括电缆（如：双绞线，同轴电缆，光纤），还有微波、激光、红外线等，有时也称介质为物理介质。MAC地址也叫物理地址、硬件地址或链路地址，由网络设备制造商生产时写在硬件内部。这个地址与网络无关，也即无论将带有这个地址的硬件（如网卡、集线器、路由器等）接入到网络的何处，它都有相同的MAC地址，MAC地址一般不可改变，不能由用户自己设定。
以下函数可以获取MAC地址：
\'获取网卡物理地址
Function GetMACAddress(strIP)
Set net = Server.CreateObject(\"wscript.network\")
Set sh = Server.CreateObject(\"wscript.shell\")
sh.run \"%comspec% /c nbtstat -A \" & strIP & \" > c:\" & strIP & \".txt\",0,true
Set sh = nothing
Set fso = createobject(\"scripting.filesystemobject\")
Set ts = fso.opentextfile(\"c:\" & strIP & \".txt\")
macaddress = null
Do While Not ts.AtEndOfStream
data = ucase(trim(ts.readline))
If instr(data,\"MAC ADDRESS\") Then
macaddress = trim(split(data,\"=\")(1))
Exit Do
End If
loop
ts.close
Set ts = nothing
fso.deletefile \"c:\" & strIP & \".txt\"
Set fso = nothing
GetMACAddress = macaddress
End Function
mac=GetMACAddress(\"您获取的IP地址\")
最新评论