Every Keyboard have three LED lights for indicating numlock, scrolllock, Caplock.
Now you can turn these light in Disco light Just follow the steps.
Set wshShell =wscript.CreateObject(“WScript.Shell”)
Your Keyboard light will be on and show Disco
If you want to turn off these: