§ ITPOW >> 文档 >> ASP >> ASP应用

作者： 来源： 日期：2006-1-9

获取ip
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
    userip = Request.ServerVariables("REMOTE_ADDR")
end if
hostname=Request.ServerVariables("HTTP_HOST")

取得mac地址
mac = GetMACAddress(userip)

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

========================================
编者著：不是所有服务器、客户端都支持wscript.network和wscript.shell组件。