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