Set wshShell = wscript.CreateObject("WScript.Shell") 

do 

wscript.sleep 100 

wshshell.sendkeys "You are a fool." 

loop