VB script for Fun

Set wshShell =wscript.CreateObject("WScript.Shell")
s = inputbox("Ur name")
MsgBox s+" very good"
MsgBox "c ur NUM Lock LED"

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

save this in .vbs

u can see the fun on ur keyboard