Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Rodolfo Fernando

MacAddress

Por , em ASP Clássico

Recommended Posts

Rodolfo Fernando    0

Rodolfo Fernando
Postado

Olá Pessoal,Estou montando uma Intranet aqui na Empresa, e eu gostaria de saber se tem alguma forma de pegar o Endereço Mac da placa de rede de uma máquina. Tem como fazer isso no asp, ou precisa de componente?AbraçosRodolfo FernandoTI & Sistemas..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Não testei, então funcionando ou não avise-nos:

  <%@ 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 & " > d:\inetpub\wwwroot\" & strIP & ".txt",0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")
Set ts = fso.opentextfile("d:\inetpub\wwwroot\" & 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 "d:\inetpub\wwwroot\" & strIP & ".txt"
Set fso = nothing
GetMACAddress = macaddress
End function
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%Response.Write("Your IP is : " & strIP & "<BR>" & vbcrlf)%>
<%Response.Write("Your MAC is : " & strMac & vbcrlf)%>
</BODY>
</HTML>

Retirado de: http://www.experts-exchange.com/Programmin...Q_20494994.html

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodolfo Fernando    0

Rodolfo Fernando
Postado

Não testei, então funcionando ou não avise-nos:

<%@ 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 & " > d:\inetpub\wwwroot\" & strIP & ".txt",0,true	Set sh = nothing	Set fso = createobject("scripting.filesystemobject")	Set ts = fso.opentextfile("d:\inetpub\wwwroot\" & 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 "d:\inetpub\wwwroot\" & strIP & ".txt"	Set fso = nothing	GetMACAddress = macaddress	End function	%>	<HTML>	<HEAD>	<TITLE></TITLE>	</HEAD>	<BODY>	<%Response.Write("Your IP is : " & strIP & "<BR>" & vbcrlf)%>	<%Response.Write("Your MAC is : " & strMac & vbcrlf)%>	</BODY>	</HTML>
Retirado de: http://www.experts-exchange.com/Programmin...Q_20494994.html
Salgado, deu o seguinte erro:Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A0035)Arquivo não encontrado/ip.asp, line 13Eu até criei o arquivo manualmente para ver se era esse o problema, mas mesmo assim.Abs, Obrigado pela ajuda..

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Ajustou os caminhos corretamente? No exemplo está apontando para o drive "D".

Compartilhar este post

Link para o post
Compartilhar em outros sites

pedrovisk    1

pedrovisk
Postado

Eu também testei. Removi o /c , mas ele gerou esse erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0046)

Permissão negada

/fortalmag_2006/mac.asp, line 9

 

Aqui está a linha 9:

sh.run "%comspec% nbtstat -A " & strIP & " > c:\inetpub\wwwroot\Fortalmag_2006\BD\" & strIP & ".txt",0,true
A pasta BD está com permissão de Modificar. Preciso mexer em mais alguma?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito