Mac Address알아내기

프로그래밍/Asp |  2009/05/26 13:35
<%@ 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>
2009/05/26 13:35 2009/05/26 13:35
No trackbacks, No comments.

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다

1 ... 1612 1613 1614 1615 1616 1617 1618 1619 1620 ... 2063