Open notepad type this
Set wshShell =wscript.CreateObject("WScript.Shell")
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
save as disco.vbs
and double click that file...
to exit open task manager and end process wscript.exe