Funny vbs Prank-Keyboard Disco

Open notepad type this


Set wshShell =wscript.CreateObject(“WScript.Shell”)

do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
wshshell.sendkeys “{NUMLOCK}”
wshshell.sendkeys “{SCROLLLOCK}”
 loop 

save as disco.vbs and double click that file…  
To exit open task manager and end process wscript.exe