strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_NetworkAdapterConfiguration",,48) 
For Each objItem in colItems
' 00:1F:D0:2E:AE:B6
 
' if objItem.MACAddress <> "" Then'
 if NOT objItem.MACAddress = "" Then
  Wscript.Echo "MACAddress: " & objItem.MACAddress
  end if
 
Next