二痣女神金惠珍:mac 地址的问题

来源：百度文库编辑：高考问答时间：2024/05/01 05:27:37

<%
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
%>
<%

Response.Write""&strMac

Dim strsql,db,strsql1
strsql="select * from computer"
Set db=cn.Execute(strsql)

Response.Write""& db("MacAddress")

If trim(cstr(strMac)) = trim(CStr(db("MacAddress"))) then
Response.Write"用户名为"
%>

<%
Else
Response.Write"不相等"
%>

<%
End If
%>
输出结果：00-13-20-D8-70-26 00-13-20-D8-70-26不相等
为什么 mac地址与数据库的不相等啊！！！！

MAC地址的问题 mac 地址的问题修改MAC地址的问题` 关于mac地址的一个问题 IP和MAC地址的问题? 有关MAC地址和IP的问题 MAC地址绑定问题 MAC地址问题~~~~~~ 关于MAC地址问题有MAC地址的问题.....帮忙我.大哥哥...我想更改电脑本身的MAC地址