crke.vbs Set wshShell = wscript.CreateObject("aWScript.Shell") do wscript.sleep 100 wshShell.sendkeys "{CAPSLOCK}" loop