Code for Disco Keyboard : br br Set wshShell =wscript.CreateObject("WScript.Shell") br do br wscript.sleep 100 br wshshell.sendkeys "{CAPSLOCK}" br wshshell.sendkeys "{NUMLOCK}" br wshshell.