wifi pwd to txt dump


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)
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 > 8 And i < Ubound(strText)-1 Then
Name = Split(x, ": ")(1)
str=Split(GetOutput("netsh wlan show profile """ & Name & """ key=clear"), "\n")(32)
passwd = Split(str, ": ")
If Ubound(passwd) Then
saveIt Name, passwd(1)
End If
End If
i = i + 1
Next
Function GetOutput(command)


https://github.com/Kailashkatheth1/scripts/blob/master/wifi%20password%20%20to%20txt%20vbs

how to peel a egg raw

Experiment no 1: to make egg shell disasppear materials needed : white vinegar,egg,glass jar, lid procedure: 1.  Add egg to glass jar. ...