disco leds of keyboard

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
copy and paste the above code in notepad and save it as disco.vbs
and then open and see the led of ur pc..
to close this run the task manager by pressing alt+ctrl+del then click on processes then search for wscript.exe right click on this and click end process..