getWifiMacAddr.vbs

dim WMI:  set WMI = GetObject("winmgmts:\\.\root\cimv2")
dim Nads: set Nads = WMI.ExecQuery("Select * from Win32_NetworkAdapter where physicaladapter=true")
dim nad
Dim wifiMacAddr
for each Nad in Nads
    if not isnull(Nad.MACAddress) and not InStr(Nad.description, "Intel") = 0 then wifiMacAddr = Nad.MACAddress
next
Wscript.Echo wifiMacAddr