VBScript: Fake Virus on Keyboard

Description:

An input box will popup asking you to enter a number(delay). After entering, it will switch all LEDs in keyboard ON and OFF for every 200millisec until the number you entered.

On Error Resume Next
Dim gShell,gRpt,gPmt,gTtl,gDft
Set gShell=WScript.CreateObject ("WScript.Shell")
gPmt="Enter the Delay:"
gTtl="Delay"
gDft="20"
gRpt=InputBox(gPmt,gTtl,gDft)
Do
For i = 1 To gRpt
gShell.SendKeys "{scrolllock}{numlock}{capslock}"
WScript.Sleep 200
Next
Exit