Type the following code in Notepad:
Set wshShell=wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Now save it with extension .vbs for eg. "capslock.vbs" without quotes
and click it and enjoy the fun...... If you want to stop the action then comment here.... I'll tell you the cure.