Реально ли создать винлокер самому без программ в vbs?

Хочу сделать небольшой винлокер а точнее чтобы вылазило небольшое окошко и пропадал рабочий стол,самое главное чтоб скрипт не очень большим был. Пока что знаю скрипт только на окошко вот он do p = InputBox ("Введите пароль",Windows,"Пароль") loop until p = "1234"