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

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