获得客房端的MAC(Media Access Control)地址

网络整理 - 08-17


     Get the clients MAC(Media Access Control) address, a hardware address that uniquely identifies each
node of a network. Works great on LAN's. Firewalls and Proxy's will be an issue depending what side of
them you're coding for.


  
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!



    '**************************************
    ' for :MAC address
    '**************************************
    This code is AS IS! I had a need For it on a
    project I was working On and found almost no info
    anywhere On what I needed To accomplish. If it
    helps you, great! If it does Not work For you:
    1.Make sure you're Not trying To hit on the same
    pc it's on.
    2.Comment out where the file gets deleted
    (fso.deletefile "c:\" & strIP & ".txt"), To view
    some potential Error info.
    3.Have fun debugging :) (I did)


code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!



    '**************************************
    ' Name: MAC address
    ' Description:Get the clients MAC(Media
    '     Access Control)
    address, a hardware address that uniquely
    identifies Each node of a network. Works great on
    LAN's. Firewalls and Proxy's will be an issue
    depending what side of them you're coding for.
    ' By: Jerry Aguilar
    '
    '
    ' Inputs:None
    '
    ' Returns:Returns the client IP and MAC
    '     address.
    '
    'Assumes:You can't navigate to it runnin
    '     g PWS on the same
    pc but If you are running PWS, you can navigate
    To it from another pc on the same lan (it does
    Not like 127.0.0.1)
    '
    'Side Effects:None
    '
    'Warranty:
    'code provided by Planet Source Code(tm)
    '     () 'as is', wi
    '     thout warranties as to performance, fitn
    '     ess, merchantability,and any other warra
    '     nty (whether expressed or implied).
    'Terms of Agreement:
    'By using this source code, you agree to
    '     the following terms...
    ' 1) You may use this source code in per
    '     sonal projects and may compile it into a
    '     n .exe/.dll/.ocx and distribute it in bi
    '     nary format freely and with no charge.
    ' 2) You MAY NOT redistribute this sourc
    '     e code (for example to a web site) witho
    '     ut written permission from the original
    '     author.Failure to do so is a violation o
    '     f copyright laws.
    ' 3) You may link to this code from anot
    '     her website, provided it is not wrapped
    '     in a frame.
    ' 4) The author of this code may have re
    '     tained certain additional copyright righ
    '     ts.If so, this is indicated in the autho
    '     r's description.
    '**************************************
    
    <%@ LANGUAGE="VBscript"%>
    <%
     strIP = Request.ServerVariables("REMOTE_ADDR")
     strMac = GetMACAddress(strIP)
     strHost = Request.ServerVariables("REMOTE_HOST")
    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
    %>
    <HTML>
    <HEAD>
    <TITLE>Say Hello To the MAC MAN</TITLE>
    </HEAD>
    <BODY>
    <%Response.Write("Your IP is : " & strIP & "<BR>" & vbcrlf)%>
    <%Response.Write("Your MAC is : " & strMac & vbcrlf)%>
    </BODY>
    </HTML>


原作者:不详
来 源:不详