[ VBS ] Ouvrir fichier powerpoint

Bonsoir,

Je suis à la recherche d'une astuce qui me permettrait d'ouvrir un fichier powerpoint ayant un mot de passe comme protection.

Mon but est d'automatiser son ouverture et ensuite de le transformer en PDF.

J'ai déjà un script qui marche pas trop mal pour les cas simple mais le problème c'est que si j'ouvre un powerpoint avec mot de passe par exemple, il m'ouvre une boite de dialogue et je ne peux pas continuer mon script. Malgrès l'ajout de mon option readonly qui me permet de l'ouvrir simplement.


Donc je voudrais savoir si quelqu'un sait comment gérer ses événements en vbs.

Le tout ce fait sous offices 2003.

Je vous donne mon script actuel:

if Wscript.arguments.count >0 then
Dim PptApp
Dim Ppt
Dim nSlides
Set PptApp = CreateObject("PowerPoint.Application")
PptApp.Visible = True
Set Ppt = PptApp.Presentations.open(Wscript.arguments.Item(0),ReadOnly)
nSlides = Ppt.Slides.Count
If nSlides > 0 Then
Ppt.PrintOut nSlides
end if
Ppt.Close
PptApp.Quit
End If

Si quelqu'un a une astuce, solution, documentation je suis preneur.

Je vous remercie d'avance.

R1D3M4N