Стандартная ситуация — нужно куда-то отойти, а на компьютере открыта важная информация. Разумеется, можно ввести компьютер в режим сна, но, во-первых, при этом перестанут работать программы в фоне, и, во-вторых, все же выход из сна происходит не моментально.
Dim WSHShell
Set WSHShell=WScript.CreateObject("WScript.Shell")
WSHShell.Run "Rundll32.exe user32.dll,LockWorkStation", 0
WSHShell.Run "nircmd.exe monitor async_off", 0
Теперь сохраните данный файл с любым именем и расширением .vbs (к примеру, lock.vbs). Поместите программу nircmd.exe в тоже место, где и скрипт — должно получиться так:
Теперь запустите скрипт — если все сделано правильно, экран погаснет и устройство заблокируется. Если вам этот способ понравился — можно сделать ярлык скрипта, выбрать подходящий значок и поместить ярлык, к примеру, на панель задач или рабочий стол для быстрого доступа к нему.