이번팁은 네이버 검색중에 필요하신 팁 같아서 퍼왔습니다.

유용하게 쓰세요!!


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


2008/02/21 15:06 2008/02/21 15:06

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