1 2 3 4 5 6 7 8 9 10 11 12 | $macwifi=netsh wlan show networks mode=bssid | Select-String '([0-9A-F]{2}[:]){5}([0-9A-F]{2})$' | % {$_.matches} | Select-Object value #Descargar el fichero que contiene información sobre los fabricantes #IEEE offers Registration Authority programs or registries which maintain lists of unique identifiers under standards and issue unique identifiers to those wishing to register them. Start-BitsTransfer https://standards-oui.ieee.org/oui.txt -Destination D:\power\oui.txt $fichero=gc D:\power\oui.txt foreach($mac in $macwifi.value) { $mac.ToUpper() $fichero | Select-String ($mac.Substring(0,8).replace(':','')).ToUpper() } |
El siguiente método (petición al servicio IEEE) ya no funciona
1 2 3 4 5 6 7 8 9 10 11 12 13 | $macwifi=netsh wlan show networks mode=bssid | Select-String '([0-9A-F]{2}[:]){5}([0-9A-F]{2})$' | % {$_.matches} | Select-Object value foreach($mac in $macwifi.value) { $mac $url="https://services13.ieee.org/RST/standards-ra-web/rest/assignments/download/?registry=MA-L&format=html&text="+$mac.Substring(0,8).replace(':','') $url $result='' Start-Sleep -Seconds 10 $result=Invoke-WebRequest $url #Here are the results of your search through the public section of the IEEE Standards MA-L database report for MAC ($result.AllElements | Where tagName -eq "PRE").outerText } |