Estás utilizando un navegador desactualizado. Puede que no muestre este u otros sitios web correctamente Deberías actualizar o utilizar un navegador alternativo.
Abrir un Notepad copia y pega lo siguiente
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")...