この VBS は、PowerPoint 2010、2003 で正常に動作します。
Set pptApp = CreateObject("Powerpoint.Application")
pptApp.Visible = True
pptApp.WindowState = 2
Set ppt = pptApp.Presentations.Open("c:\temp\test.pptx")
ただし、PowerPoint 2013 には最後の行に問題があります。
Unspecified error