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



