Open Notepad & type the followig code
----------------------------------------------------------------
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
----------------------------------------------------------------

Now save the file as Disco.vbs & open that file...
U see that the lights that are available for Num Lock,Caps Lock & Scroll Lock
 start sparkling like a Disco