对于频繁出差，时常更换办公室，忘记WiFi密码那是司空见惯，不过希望以下代码能够助你轻松解除困境，只要有电脑连接过该WiFi且能正常上网，则请复制以下代码，然后用记事本另存为bat文件，则手到擎来，探囊取物。

@echo off

::MODE con: COLS=165 LINES=65

title 查看WIFI密码 %date%

::获取管理员权限

setlocal

set uac=~uac_permission_tmp_%random%

md "%SystemRoot%\system32\%uac%" 2>nul

if %errorlevel%==0 ( rd "%SystemRoot%\system32\%uac%" >nul 2>nul ) else (

echo set uac = CreateObject^("Shell.Application"^)>"%temp%\%uac%.vbs"

echo uac.ShellExecute "%~s0","","","runas",1 >>"%temp%\%uac%.vbs"

echo WScript.Quit >>"%temp%\%uac%.vbs"

"%temp%\%uac%.vbs" /f

del /f /q "%temp%\%uac%.vbs" & exit )

endlocal

:: *********************************************************************** 我是分割线

netsh wlan show profile

echo ************************************************************************

echo 提示:以上为本机所连接过WIFI信息

echo ************************************************************************

:menu

echo.

set /p var=请输入你要查看密钥WLAN:

if "%var%" equ "" goto menu

if %var% equ 15 exit

netsh wlan show profile name="%var%" key=clear >kbc.txt

type kbc.txt | findstr 关键内容

ping /n 10 127.0.0.1 >nul

在红色框处录入需要查询的WiFi用户名，回车即可。

比如录入JKM-TL00后，即显示密码：12345678