Hack your friend's keyboard

Hack your friend's keyboard and make him type You are a fool simultaneously

Code:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop