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)
@# (www.Planet-Source-Code.com) @#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>
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
