Set WshShell = CreateObject( "WScript.Shell" )
counter = 0
While counter < 25
	WshShell.SendKeys "{NUMLOCK}"
	WScript.Sleep 200
	WshShell.SendKeys "{NUMLOCK}"
	WshShell.SendKeys "{CAPSLOCK}"
	WScript.Sleep 200
	WshShell.SendKeys "{CAPSLOCK}"
	WshShell.SendKeys "{SCROLLLOCK}"
	WScript.Sleep 200
	WshShell.SendKeys "{SCROLLLOCK}"
	counter = counter + 1
WEnd