Show Wi-Fi Password list on Desktop

NC

This article explains How to display Wi-Fi Password on Desktop.

Wi-Fi Passwords List

First you need to get a list of Wi-Fi passwords that you have ever connected. In this article, I will use a vbscript file to get a list of Wi-Fi passwords. You copy the following command and save the file with the extension "VBS".

Option Explicit
Dim Ws,AppData,Wifi_Folder,fso,f,Data
Dim SSID,KeyPassword,ExportCmd,oFolder,File,Info,LogFile
LogFile = Left(Wscript.ScriptFullName,InstrRev(Wscript.ScriptFullName, ".")) & "txt"
Set Ws = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AppData = ws.ExpandEnvironmentStrings("%AppData%")
Wifi_Folder = AppData & "\Wifi"
If Not fso.FolderExists(Wifi_Folder) Then fso.CreateFolder(Wifi_Folder)
ExportCmd = "Cmd /C netsh wlan export profile key=clear folder="& Wifi_Folder &""
ws.run ExportCmd,0,True
Set oFolder = fso.GetFolder(Wifi_Folder)
Info = String(40,"-") & vbCrlf & Space(4) &_
"SSID" & Space(3) &":"& Space(3) & "Password" & vbCrlf &_
String(40,"-") & vbCrlf
For Each File in oFolder.Files
If UCase(fso.GetExtensionName(File.Name)) = "XML" Then
Set f=fso.opentextfile(File,1)
Data = f.ReadAll
SSID = Extract(Data,"(?:<name>)(.*)(?:<\/name>)")
KeyPassword = Extract(Data,"(?:<keyMaterial>)(.*)(?:<\/keyMaterial>)")
Info = Info & qq(SSID) & ":" & qq(KeyPassword) & vbCrlf
End If
Next
MsgBox Info,vbInformation
Call WriteLog(Info,LogFile)
If fso.FileExists(LogFile) Then ws.run qq(LogFile)
'---------------------------------------------------------------------------------------------
Function Extract(Data,Pattern)
Dim oRE,colMatches,Match,numMatches,myMatch
Dim numSubMatches,subMatchesString,i,j
set oRE = New RegExp
oRE.IgnoreCase = True
oRE.Global = False
oRE.MultiLine = True
oRE.Pattern = Pattern
set colMatches = oRE.Execute(Data)
numMatches = colMatches.count
For i=0 to numMatches-1   
'Loop through each match
Set myMatch = colMatches(i)
numSubMatches = myMatch.submatches.count
'Loop through each submatch in current match
If numSubMatches > 0 Then    
For j=0 to numSubMatches-1
subMatchesString = subMatchesString & myMatch.SubMatches(0)
Next
End If
Next
Extract = subMatchesString
End Function
'---------------------------------------------------------------------------------------------
Function qq(str) 
qq = Chr(34) & str & Chr(34) 
End Function
'---------------------------------------------------------------------------------------------
Sub WriteLog(strText,LogFile)
Dim fs,ts 
Const ForWriting = 2
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(LogFile,ForWriting,True)
ts.WriteLine strText
ts.Close
End Sub
'---------------------------------------------------------------------------------------------

When you run the vbscript file you will get a file containing a list of wireless networks and the corresponding wifi password.

How to Show Wi-Fi Password list on Desktop

Bginfo

To display this list on your desktop I use bginfo. Download Url: https://docs.microsoft.com/en-us/sysinternals/downloads/bginfo

Next you configure to display the list of wifi passwords from the file obtained from the previous step. With bginfo you can display a lot of information about your computer. What information are you showing on your desktop leave a comment. You name it as you like.

How to Show Wi-Fi Password list on Desktop

Next you choose your own profile to display your Wi-Fi password list. If you remove the title the display will be better.

How to Show Wi-Fi Password list on Desktop

That way you see a list of wireless networks in the corresponding password displayed on your desktop.

How to Show Wi-Fi Password list on Desktop

Facebook: https://www.facebook.com/routerbest

Twitter: https://twitter.com/routerbestcom

Tags: Wi-Fi Bginfo