Jag har febrilt sökt efter ett bra fungerande script för att få fram Mac-Adressen på klientens nätverkskort. Hittade ett som funkar för mig på min egna server men inte för andra.
Vid en nogrannare titt i scriptet ser jag att det använder sig av "nbtstat -A" och alla som har använt det kommandot i dos vet att det inte alltid funkar så bra.
btw.. så här ser det ut:
<%@ 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:\inetpub\wwwroot\intranet\" & strIP & ".txt",0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile("c:\inetpub\wwwroot\intranet\" & strIP & ".txt")
macaddress = null
Do While Not ts.AtEndOfStream
data = ucase(trim(ts.readline))
If instr(data,"MAC-ADRESS") Then
macaddress = trim(split(data,"=")(1))
Exit Do
End If
loop
ts.close
Set ts = nothing
'fso.deletefile "c:\inetpub\wwwroot\intranet\" & strIP & ".txt" 'Used to delete the temp file
Set fso = nothing
GetMACAddress = macaddress
End Function
%>
<HTML>
<HEAD>
<TITLE>Mac-Adress</TITLE>
</HEAD>
<BODY>
<%Response.Write("Ditt IP : " & strIP & "<BR>" & vbcrlf)%>
<%Response.Write("Din MAC : " & strMac & vbcrlf)%>
</BODY>
</HTML>
och det finns på adressen http://activeservers.com/FAQ/XcIBViewItem.asp?ID=110
Frågan är.. har någon en bättre lösning på att få fram mac adressen?
MvH Krug