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