用ASP求的IP地址和MAC地址！给出者高分！
如题 问题点数：100、回复次数：15Top
1 楼cpio（备注）回复于 2003-06-03 16:52:55 得分 2
IP可以：
request.servervariables("Remote_Addr")
MAC就不知道了Top
2 楼youbest（冲天飞豹）回复于 2003-06-03 16:58:24 得分 2
Response.Write Request.Servervariables("Remote_Addr")Top
3 楼liuqinyi（宝贝）回复于 2003-06-03 17:06:08 得分 3
MAC地址得不到，用组件可以的。Top
4 楼cpp2017（慕白兄）回复于 2003-06-03 17:06:39 得分 20
<%@ 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 & "" & vbcrlf)%>
<%Response.Write("Your MAC is : " & strMac & vbcrlf)%>
</BODY>
</HTML>
Top
5 楼dreamfly8848（找浙江江山老乡->未开巧的指针）回复于 2003-06-03 17:13:56 得分 0
cpp2017(可凭身份证号取回丢失的密码) very goodTop
6 楼xzzangel（╰☆风吹草动☆╮(我很菜的！)）回复于 2003-06-03 17:14:46 得分 20
to cpp2017(可凭身份证号取回丢失的密码)
我刚才用你的方法试了，但测试出来的IP地址是127.0.0.1,但我实际的IP地址是192.168.0.225
mac的地址测试不出来，指教！急Top
7 楼coffee_cn（coffee）回复于 2003-06-03 17:19:06 得分 0
服务器端如果允许的话应该是可以！！Top
8 楼gyfer（gyfer）回复于 2003-06-03 17:22:54 得分 0
经测试，cpp2017(可凭身份证号取回丢失的密码) 的代码正确，；-），佩服佩服，呵呵Top
9 楼cpp2017（慕白兄）回复于 2003-06-03 17:25:41 得分 0
你在本机测试，所以ip只能得到本地ip
mac地址应该可以出来的
我测试过
你在dos下运行一下nbtstat -A 电脑名或ip
Top
10 楼xzzangel（╰☆风吹草动☆╮(我很菜的！)）回复于 2003-06-03 17:26:05 得分 20
怎么个允许法,祥告!Top
11 楼xzzangel（╰☆风吹草动☆╮(我很菜的！)）回复于 2003-06-03 17:36:47 得分 20
我测试过刚才 cpp2017(可凭身份证号取回丢失的密码)提供的在dos命令下运行可以通过
但ASP怎么不行呢?
关注Top
12 楼hubinasm（火星撞地球之闭关修炼）回复于 2003-06-03 17:41:26 得分 0
那个应该是可以的。Top
13 楼ssm1226（雨中人(虚心学习)）回复于 2003-06-03 17:49:45 得分 5
如果在本机测试，将strIP = Request.ServerVariables("REMOTE_ADDR")
改为你的strIP即可
Top
14 楼cpp2017（慕白兄）回复于 2003-06-03 17:59:36 得分 8
给当前目录以写入权限，并更改为
==>
Function GetMACAddress(strIP)
Dim path
path = Server.Mappath("a1.txt")
Set net = Server.CreateObject("wscript.network")
Set sh = Server.CreateObject("wscript.shell")
sh.run "%comspec% /c nbtstat -A " & strIP & " >" & path ,0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile(path)
Top
15 楼hblhshb（江湖客）回复于 2003-06-03 18:02:55 得分 0
真是高人.佩服.Top
