수안이의 컴퓨터 연구실 :: 맥 어드레스 알아내는 방법

출처 : http://www.sarangnamu.net/

<%@ 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 %> <body> <%Response.Write("Your IP is : " & strIP & "" & vbcrlf)%> <%Response.Write("Your MAC is : " & strMac & vbcrlf)%> </body>

"ASP" 카테고리의 다른 글