<%
Set colIPConfig = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2" ).ExecQuery ("SELECT MACAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=true" )
For Each oIPConfig In colIPConfig
    Response.Write oIPConfig.MACAddress & "<br>"
Next
%>

------解决方案--------------------
高，实在是高！

------解决方案--------------------
1楼正解。呵呵。