7 svar · 294 visningar · startad av Kuckel
Hej
Finns det nåt sätt att få fram ett globalt/unikt nummer från en besökare på en webbsajt? Dennes nätvkort idnummer etc?
Finns detta kanske i vb?
Du kan ju slumpa ut ett nummer mellan 10000 och 1000000.
dim upperlimit, lowerlimit, slump
randomize
upperlimit = 1000000
lowerlimit = 10000
slump =Int((upperlimit - lowerlimit)*Rnd() + lowerlimit)
Response.Write slump
Mvh
IP-adress?
Besökare kan ha samma IP nummer...
Japp de kan ha samma ip, jag är mera ute efter ett nätverkskorts Id eller liknande, något mer unikt än Ip.nummer
Använd dig av en sessionID, bör vara unikt för varje besökare! :e
Det trevliga med att använda en MAC-adress är väl att du vet att anslutningen till din sida är en unik. Hur du går till väga med att ta reda på den med VBS vete tusan. I C++, C# eller VB t.ex. är det inga bekymmer...
Du kan fetcha Mac-adressen genom ASP och Windows Script Host, men tänk på att du troligtvis inte kommer kunna läsa av folk bakom firewall/Proxy. Det brukar oftast vara portarna för ICMP traffiken som kommunicerar med NIC.
Troligtvis bättre med SessionID.
<%@ 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") 'Pathen för textfilen
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" 'Ta bort tempfilen.
Set fso = nothing
GetMACAddress = macaddress
End Function
%>
<HTML>
<HEAD>
<TITLE>Visa Mac-adress</TITLE>
</HEAD>
<BODY>
<%Response.Write("Your IP is : " & strIP & "<BR>" & vbcrlf)%>
<%Response.Write("Your MAC is : " & strMac & vbcrlf)%>
</BODY>
</HTML>