Every Keyboard have three LED lights for indicating numlock, scrolllock, Caplock.
Now you can turn these light in Disco light Just follow the steps.
Copy Below Code
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
Open Note Pad
Paste above code in notepad
Save as it “disco.vbs“
Open it
Your Keyboard light will be on and show Disco