Key Board Disco Light Prank-Code to annoy your Friends

What is this prank?

One of my friends refused to party saying that he has serious typing work.But we didn't let him do his work.We decided to annoy him a bit.Then we followed the disco keyboard prank that really made him feel like the hell.

Finally he decided to leave the work to hell and joined us in the party.Later we told him what we did,that made him a bit more anger :) :)
This code makes all the LEDs on the keyboard to go disco(Caps Lock,Scroll Lock,Num Lock will randomly be ON & OFF),that annoys someone especially while they are typing.
This Prank may be named as Disco Keyboard Prank.

Here is the code for disco keyboard prank:

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "{NUMLOCK}"

wshshell.sendkeys "{SCROLLLOCK}"

loop

 All you need to do is copy the code and paste in Note Pad,Save it as test.vbs or any file_name.vbs.

See the magic of disco keyboard prank when someone opens it/Double taps it.

Note:

If this doesn't work,Remove " and Replace them with " from your key Board