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
Comments
0 B
|👍
/👎
0 B
|0 👍
/0 👎
0 B
|👍
/👎