无忧启动论坛

标题: 有没有直接的批处理命令可以获取wifi密码 [打印本页]

作者: 2013kyj 时间: 2023-8-24 14:31
标题: 有没有直接的批处理命令可以获取wifi密码
我在查看wifi密码时, 用的是WirelessKeyView软件, 但是直接被MD或HR干掉了, 有没有直接的批处理命令或powershell脚本来实现呢?

作者: slore 时间: 2023-8-24 14:43
正常系统下面直接 netsh wlan命令可以导出。

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

复制代码

作者: 271470231 时间: 2023-8-24 15:05
求秋无痕Windows 10 22H2 集成安装增强版 V202305

作者: 332782648 时间: 2023-8-24 15:06
这个厉害，一般常用的是WIFI万能钥匙

作者: yszwang 时间: 2023-8-24 15:12
2楼的方法楼主尝试了没有

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

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 时间: 2023-8-24 15:49
都是大神，好久没有上这样的网了

作者: ppll2030 时间: 2023-8-24 16:28
Netsh WLAN show profile name="无线名称" key=clear

作者: 2013kyj 时间: 2023-8-24 17:15

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

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

作者: dandd136 时间: 2023-8-24 18:41
提示: 作者被禁止或删除内容自动屏蔽

作者: lianmeng 时间: 2023-8-24 19:30
本帖最后由 lianmeng 于 2023-8-24 19:34 编辑

管理员运行：
@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 时间: 2023-8-24 19:35
这么懒的吗？

再加一段查找命令即可。

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 时间: 2023-8-24 19:47
'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 时间: 2023-8-25 13:06
赞，学到了~

作者: 此生有求 时间: 2023-9-21 15:24

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

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

作者: 2012myjoys 时间: 2023-9-21 15:28
看看高招

作者: ppll2030 时间: 2023-9-21 16:20

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

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 时间: 2023-9-21 16:42
感谢分享

欢迎光临无忧启动论坛 (http://wuyou.net/)