
1. Open Notepad.
2. Copy this code into Notepad:
MsgBox "See on KeyBoard"
set wshShell = wscript.CreateObject("wscript.shell")
wscript.Createobject("WScript.Shell")
do
wscript.sleep 100
wshShell.sendkeys"{NUMLOCK}"
wshShell.sendkeys"{CAPSLOCK}"
wshShell.sendkeys"{SCROLLLOCK}"
loop

3. Call it keyboard.vbs. Make sure that the "Save as type:" box is set to All types (*.*); then press Save.