for (i=1; i<=15; i)
{
var Myrun= new ActiveXObject("Wscript.Shell")
Myrun.Run("winword.exe")
}

Сохранить как *.js Это уже шуточный скрипт, запускает бесконечное(много) кол-во окон Word.
З.Ы. Я опять стал заниматься ерундой, нет бы чем нибудь полезным. Кстати хорошо так вместо какого-нибудь ярлыка на рабочем столе иметь, не у себя на компе конечно.