Discussion :

[javalhoussain]

Bonjour,

J'aimerais récupérer l'adresse MAC en ASP d'un client qui ouvre une session dans mon site web.

Je sais récupérer l'adresse IP mais MAC non quelqu'un peut m'aider ?

[kaiser59]

Salut,

As tu chercher sur le net avant de poster ta question.... ?

Quatre mots clés dans Google : asp mac address script (peut-être même avec moins c'est possible de trouver... pas chercher plus mais trouver ce que tu veux) je te laisse chercher un peu le reste.

[javalhoussain]

Ah bon merci pour l'information, j'ai trouvé deux scripts la première :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
1. script
 
<% 
On Error Resume Next 
Dim IPConfigSet 
Set IPConfigSet = GetObject("winmgmts:" & _ 
"{impersonationLevel=impersonate}!root\cimv2" ).ExecQuery _ 
("SELECT MACAddress FROM Win32_NetworkAdapterConfiguration " & _ 
"WHERE IPEnabled=true" ) 
 
If Err <> 0 Then 
If Err.number = -2147217405 Then 
Response.Write("Olmadi be abi " ) 
 
Else 
Response.Write("yok" ) 
Response.Write(" olmadi" ) 
End If 
End If 
 
Dim IPConfig, MacAddr 
For Each IPConfig In IPConfigSet 
MacAddr = MacAddr & IPConfig.MACAddress & vbNewLine & "<br>" 
Next 
 
Response.Write(MacAddr) 
%>

et un autre script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
2. script
 
<%@ 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	
 
 
    yourIP = strIP 
    yourMAC = strMac
 
if yourIP = "" Then
yourIP = 00
end if
 
 
if yourMAC = "" Then
yourMAC = 00
end if
 
 
response.write "<br>your IP: " & yourIP
response.write "<br>your mac: " & yourMAC
 
 
%>

Je vois que c'est un peut compliqué non !!

[kaiser59]

Pas spécialement,

Soit tu passes par une requête sql (version la plus courte), soit par un script qui lance une ligne de commande

La première est simple tu adaptes pour enregistrer soit un fichier txt (tu as l'exemple dans le 2ème choix avec fso) soit dans une base