Mac adresse igen

kan man hente det ved at skrive noget i en command promt?

ala ipconfig?
For så kan du bruget noget wscript.shell("command.com") - skal lige finde det til dig

jo i dos kan du skrive
"ipconfig /all" der kommer den så frem der kaldes den "fysisk adresse"

Jeg har tidligere fået scriptet nedenunder til at virke, men ikke efter jeg har ændret på opsætningen af netkort osv..

det er den her script du tænkre på ikke telesde? :


<%

        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:\" & 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 "e:\" & 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
      response.write GetMACAdress

    %>

-- xs

nu har jeg fundet et andet script som kører alle de dos kommandoer du vil.. den virker..

du kan finde den her:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=4&txtCodeId=6928

-- xs

ok hvis den virker får du samtlige 200 point

nu har jeg kigget den igennem, men kan da ikke se hvordan jeg stadig skal få den til at hente sig selv ned til en lille textboks                (som man ikke selv skal kunne ændre i.) hvis du kan lave det er de 200point som sagt dine.

jeg kan lige smide den op på mit website og så sætter jeg nok lige en begrænsning på hvad man må køre.. :)

det virker selvfølgelig ikke på mit website, men det virker her i min LAN..

du kan ikke checke det fra den pc du sidder ved desværre..

her er koden:

MAC adressen bliver smidt ind i en textfield

    <%@ 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") then
    macaddress = trim(split(data,"=")(1))
    response.write "MAC : <input type='text' value='" & macaddress & "'><BR>"
    'exit do
    end if
    loop
    ts.close
    set ts = nothing
    'fso.deletefile "c:\" & strIP & ".txt"
    set fso = nothing
    GetMACAddress = macaddress
    End Function
    %>
    <html>
    <HEAD>
    <TITLE>MAC adressen :)</TITLE>
    </HEAD>
    <body>
    <%Response.Write("Your IP is : " & strIP & "<br>" & vbcrlf)%>
    </body>
    </html>

-- xs

ved mig vil den så lave 2 textfields med 2 forskellige MAC adresser.. 1 til LAN og en til kabelmodem..

-- xs

jeg fandt ud af at de data der bliver smidt ind i txt filen står på dansk og i original scriptet stod der MAC ADDRESS.. så det ændrede jeg bare til MAC

hvis textfield ikke må kunne ændres skal du lige ændre en linie..:

response.write "MAC : <input type='text' value='" & macaddress & "'><BR>"

ændres til:

response.write "MAC : <input readonly type='text' value='" & macaddress & "'><BR>"


-- xs

får følgemde fejl:
Microsoft VBScript compilation error '800a03ea'

Syntax error

/mac2.asp, line 18

response.write "MAC : <input readonly type='text' value='" & macaddress & '"><BR>"
--------------------------------------------------------------------------^

weird.. ingen fejl her..

men prøv det her så..
response.write "MAC : <input readonly type='text' value='" & macaddress & "'>"
response.write "<BR>"

virker det så?

virker delvist nu den viser dog kun en textboks med min ip adresse den viser ikke duggen af min mac adresse

du kan ikke checke det fra samme pc som serveren

det virker helt perfekt på min LAN

jeg har både tjecket på serveren og på 3 clienter.

har du icq eller msn?

kan nemlig være det er mig der gør det forkert og er ikke særlig glad for at skrive username og password her

ICQ 45050691

takker for point

-- xs