strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48) 
For Each objItem In colItems
If NOT objItem.MACAddress = "" Then
  Wscript.Echo "MACAddress: " & objItem.MACAddress
  End If
 
Next