Set WshShell = CreateObject( "WScript.Shell" )
Randomize
counter = 0
While counter < 150
	random = Int( 3 * Rnd + 1 )
	Select Case random
		Case 1
			WshShell.SendKeys "{CAPSLOCK}"
		Case 2
			WshShell.SendKeys "{SCROLLLOCK}"
		Case else
			WshShell.SendKeys "{NUMLOCK}"
	End Select
	WScript.Sleep 100
	counter = counter + 1
WEnd