This code when executed makes your Caps, Num, Scroll lock keys flash..
very attractive...i have tried it..trust me

Instructions:

*paste the code in notepad
*Save as disco.vbs
*Run the file
*to stop, launch task manager and then under "Processes" end wscript.exe

This piece of code makes your keyboard a live disco...

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop