Buenas les traigo una función vbscript (pedida por JorgeSpain) para obtener la dirección MAC de los adaptadores conectados en nuestra pc.
Llamada a la función:
Call "GetMac" "true" "[TextEntry1]"
La función recibe 2 parámetros:
1: Si es true traerá solo la mac de la placa ethernet. Si es false traerá la lista mac de todos los adaptadores
2: Variable donde guardar el resultado
El resultado es devuelto de la forma nombreadaptador;MAC (el nombre se encuentra separado de la mac con “;”)
Espero que sea útil
Saludos
Screenshot
Descarga
ejmac.rar (1,0 MiB, 2.315 hits)
NOTA: Las función debe ser copiada a la carpeta Functions de NeoBook.
El Error:
OLE Error 80041017
¿de qué puede ser?
@JorgeSpain estas ejecutando en una maquina virtual? Prueba esto:
Busca en el archivo de la funcion la siguiente linea:
dim Nads: set Nads = WMI.ExecQuery(“Select * from Win32_NetworkAdapter where physicaladapter=true”)
Y reemplaza por:
dim Nads: set Nads = WMI.ExecQuery(“Select * from Win32_NetworkAdapter”)
Luego me cuentas
Saludos