Foro Excel

En repetidas ocasiones me ha tocado ver que solicitan una respuesta a este tema y siempre se pasan links de codigo bastante rebuscado y extenso as ique proponemos una sencillo que me he encontrado buscando alternativas

Por script para saber la direccion MAC

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_NetworkAdapter",,48)

For Each objItem in colItems
WScript.Echo "MACAddress: " & objItem.MACAddress
Exit for
Next


y por MSDOS partiendo de XP

c:\nbtstat -a "LA-IP"

nos resulta al final la direccion MAC

algunos otros links de interes:

Hola Javi,

> saber la dirección MAC del usuario
http://tinyurl.com/s3dpv

> nombre de usuario
http://www.erlandsendata.no/english/ind ... osusername


adaptado a VBA:
Dim FileWsh As Object
Set FileWsh = CreateObject("Scripting.FileSystemObject")
MsgBox "Número de Serie del Volumen en Hexadecimal: " & Hex$( _
FileWsh.Drives("C").SerialNumber)
MsgBox "Número de Serie del Volumen en decimal: " & FileWsh.Drives( _
"C").SerialNumber
Set FileWsh = Nothing

> el nombre del equipo
http://www.erlandsendata.no/english/ind ... mputername

> el grupo de trabajo/dominio
http://support.microsoft.com/kb/q148835/

"KL"


Saludos