Смена картинок

Есть 2 видео файла 1.m2v и 2.exe. Задача: проигрывать их во весь экран поочереди в цикле.
Как это можно реализовать?
Попробовал скриптом .vbs(язык знаю плохо и инструментов под рукой нету):
set wshShell = wScript.createObject("wScript.shell")
wshShell.run """D:\1.m2v"""
wshShell.appActivate "1"
wScript.sleep 10000
wshShell.run """D:\2.exe"""
wshShell.appActivate "2"
wScript.sleep 10000
For Counter=1 To 4
wshShell.appActivate "Proizv"
wScript.sleep 10000 'подождем пока загрузится (2 минуты)
wshShell.appActivate "Present"
wScript.sleep 10000 'подождем пока загрузится (2 минуты)
Next

Файлы запускает, а окна не активирует. Можт есть гуру по скриптам. Помогите разобраться что не так.