Disco lights on your KEYBOARD

Copy the below code in Notepad and save it as disco.vbs on Desktop
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

Now , click the disco.vbs and you will found that your Caps lock , Scroll lock , Nums lock are flashing like Disco lights.

To stop it , go to task manager and in Process column search for wscript.exe , right click and end the process.

Play pranks with your friends
Enjoy Disco lights on your keyboard  :)