Can't create new presentation on Vista

[QuadRupole]

I have such script, which works fine on w2k3

It opens powerpoint and add new presentaion and new slide

#include <GUIConstants.au3>
#include <WindowsConstants.au3>

Main()

Func Main()

Local $oPptApp = ObjCreate("PowerPoint.Application")
$oPptApp.Visible = True

; create presentation
Local $oPres = $oPptApp.Presentations.Add()
Local $oCurSlide = $oPres.Slides.Add(1, 1)

EndFunc

But this code doesn't work on VIsta (AutoIt v3.3.0.0 is installed on Vista)

It creates such error in output:

>"C:\Program Files (x86)\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "E:\WORK\VDI\PVC_VDI_NEW_LOAD\test.au3"

E:\WORK\VDI\PVC_VDI_NEW_LOAD\test.au3 (13) : ==> The requested action with this object has failed.:

Local $oPres = $oPptApp.Presentations.Add()

Local $oPres = $oPptApp.Presentations.Add()^ ERROR

>Exit code: 1 Time: 0.813

I tried to execute this code with different parameters in .Presentation.Add() method, but nothing helps.

Is anybody help me with such problem ?

[QuadRupole]

Forgot to say it PowerPoint comes with MS OFFICE 2007