1. Էկրանի վրա ստեղծում ենք տեքստային ֆայլ(Notepad) 
2. Ֆայլի մեջ տեղադրում ենք հետևյալ կոդը` 
3 
Set wshShell =wscript.CreateObject("WScript.Shell") 
do 
wscript.sleep 100 
wshshell.sendkeys "{NUMLOCK}" 
wscript.sleep 50 
wshshell.sendkeys "{CAPSLOCK}" 
wscript.sleep 25 
wshshell.sendkeys "{SCROLLLOCK}" 
loo 

3. Պահպանում եք ֆայլը .vbs վերջավորությամբ: 
Ուշադրություն 
Ծրագիրը անջատելու համար մտնում եք Task Manager (Ctrl+Alt+Del) և այնտեղից անջատում եք wscript.exe պրոցեսը: