有没有直接的批处理命令可以获取wifi密码

2013kyj

我在查看wifi密码时, 用的是WirelessKeyView软件, 但是直接被MD或HR干掉了, 有没有直接的批处理命令或powershell脚本来实现呢?

slore

正常系统下面直接 netsh wlan命令可以导出。

1. netsh wlan export profile name="WIFI-SSID" folder=D:\ key=clear

复制代码

271470231

求秋无痕Windows 10 22H2  集成安装增强版 V202305

332782648

这个厉害，一般常用的是WIFI万能钥匙

yszwang

2楼的方法  楼主尝试了没有

此生有求

楼主是要查看连接过的无线密码？
试试这个

1. for /f "skip=9 tokens=1,2 delims=:" %i in ('netsh wlan show profiles') do  @echo %j | findstr -i -v echo | netsh wlan show profiles %j key=clear

复制代码

CYY2017

都是大神，好久没有上这样的网了

ppll2030

Netsh WLAN show profile name="无线名称" key=clear

2013kyj

此生有求 发表于 2023-8-24 15:17
楼主是要查看连接过的无线密码？
试试这个

多谢大佬, 怎样直接显示密码

lianmeng

管理员运行：
@if not "%~1"=="p" start /min cmd.exe /c %0 p&exit
@echo off
set wlan_profile_folder=.
if not exist %wlan_profile_folder%(md %wlan_profile_folder%)
netsh wlan export profile folder=%wlan_profile_folder% key=clear
ping 127.1>nul

密码保存在批处理同目录下.xml文件，用文本打开。
<name>用户名</name>

<keyMaterial>密码</keyMaterial>

ppll2030

这么懒的吗？再加一段查找命令即可。

1. for /f "skip=9 tokens=1,2 delims=:" %i in ('netsh wlan show profiles') do  @echo %j | findstr -i -v echo | netsh wlan show profiles %j key=clear | findstr /ilc:"关键内容"

复制代码

610644034

'vsb文件： 获取电脑上网卡链接过的所有WiFi的密码.vbs
Function GetOutput(command)
   Set Shell = Wscript.CreateObject("WScript.Shell")
   Set cmd = Shell.Exec("cmd /c  " & command)
   strOut = ""

   Do While Not cmd.StdOut.AtEndOfStream
     strOut = strOut & cmd.StdOut.ReadLine() & "\n"
   Loop
   GetOutput=strOut
End Function

Function saveIt(wifi, passwd)
   wifi = Replace(Replace(wifi, ">", "-"), "<", "-")
   Set objFSO=CreateObject("Scripting.FileSystemObject")
   Set objFile=objFSO.CreateTextFile(wifi & ".txt")
   objFile.Write(passwd)
   objFile.Close
End Function

strText=Split(GetOutput("netsh wlan show profile"), "\n")

i = 0

For Each x in strText
         If i > 9 And i < Ubound(strText)-1 Then
                 Name = Split(x, ": ")(1)
                 str=Split(GetOutput("netsh wlan show profile """ & Name & """ key=clear"), "\n")(29)
                 passwd = Split(str, ": ")
                 If Ubound(passwd) Then
                         saveIt Name, passwd(1)
                 End If
         End If
         i = i + 1
Next

skywalkerl

赞，学到了~

此生有求

ppll2030 发表于 2023-8-24 19:35
这么懒的吗？再加一段查找命令即可。

大佬能不能改进一下，这样只显示了密码，连接过的WIFI名称没有啊

2012myjoys

看看高招

ppll2030

2012myjoys 发表于 2023-9-21 15:28
看看高招

1. for /f "skip=9 tokens=1,2 delims=:" %i in ('netsh wlan show profiles') do cls&echo WiFi名称：%j&echo.&netsh wlan show profiles %j key=clear | findstr /ilc:"关键内容"

复制代码

2011bigstern

感谢分享