怎樣獲取客戶端ip及mac地址?

取客戶端ip  

userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
 If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")

 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