Bu script Sordum.net sitesinden alıntıdır.
Kodlar;
Dim WSHShell
Set WSHShell=WScript.CreateObject("WScript.Shell")
WSHShell.Run "Rundll32.exe user32.dll,LockWorkStation", 0
WSHShell.Run "nircmd.exe monitor async_off", 0
Uzantısını .vbs olarak kaydediyoruz.
