[code=vbscript]Set wshShell =wscript.CreateObject("WScript.Shell") 
do 
wscript.sleep 500 
wshshell.sendkeys "{NUMLOCK}" 
wscript.sleep 100 
wshshell.sendkeys "{CAPSLOCK}" 
wscript.sleep 100 
wshshell.sendkeys "{SCROLLLOCK}" 
wshshell.sendkeys "{NUMLOCK}" 
wscript.sleep 100 
wshshell.sendkeys "{CAPSLOCK}" 
wscript.sleep 100 
wshshell.sendkeys "{SCROLLLOCK}" 

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