Hentning af MAC adressen

det kan du vist godt på lokalnetværk.. men ikke på internettet..

jeg kan ikke lige finde spørgsmålet nu men det her kode stammer fra et spørgsmål under ASP kat. et eller andet sted:

<%     

        strIP = Request.ServerVariables("REMOTE_ADDR")
        strMac = GetMACAddress(strIP)
        Browser = Request.ServerVariables("HTTP_USER_AGENT")
       
        Function GetMACAddress(strIP)
        Set net = Server.CreateObject("wscript.network")
        Set sh = Server.CreateObject("wscript.shell")
        sh.run "%comspec% /c nbtstat -A " & strIP & " > c:\windows\skrivebord\getmac\" & strIP &        ".txt",0,true
        Set sh = nothing
        Set fso = createobject("scripting.filesystemobject")
        Set ts = fso.opentextfile("c:\windows\skrivebord\getmac\" & 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" 'Used to delete the        temp file
        Set fso = nothing
        GetMACAddress = macaddress
        End Function
       
      ' if not macaddress = Din deffinerede
      ' response.redirect(default.asp)
      ' end if
      response.write macaddress
   
    %>

-- xs

du skal selvfølgelig ændre stier osv

fandt det:

http://www.eksperten.dk/spm/158172

-- xs

tak for hjælpen :)))