Aide correction écriture fin de script - MaximDL

[bradisback]

Bonjour à tous,

J'ai un petit soucis avec un Script trouvé (et qui doit dater un peu) pour refaire la MAP automatiquement avec MaximDL.
C'est un script à placer à la fin d'une ligne dans Autosave...
Le Script se lance bien, la MAP se fait correctement, mais je pense qu'il ne reçoit pas en retour un message de MaximDL lui signalant que la MAP est terminée et donc le script reste actif et la séquence ne passe pas à la ligne suivante...

Quelqu'un serait-il assez balaise pour m'écrire une ligne de code pour (par exemple) fermer le script automatiquement après un certain délai genre 3 ou 4 min?

Le génie qui pourra m'arranger cela aura ma reconnaissance éternelle  

Super grand merci d'avance pour votre aide!!

Stef
 

 

 

 

'Stephen Mounioloux - Cooledpix.com
'Refocusing Script V1.0 for MaximDL imaging (autosave) sequences
'2012/10/17 - Last update: 2012/10/18
'----------------------------------------------------------
Dim cam
Set cam = CreateObject("MaxIm.CCDCamera")
Dim af
Set af = CreateObject("MaxIm.Application")

cam.LinkEnabled = True
if Not cam.LinkEnabled Then
   wscript.echo "Failed to start camera."
   Quit
End If

af.FocuserConnected = True
if Not af.FocuserConnected Then
   wscript.echo "Failed to connect the focuser."
   Quit
End If

wscript.echo "Moving filter wheel to Focus on Slot #0 Filter."
cam.filter(0)
wscript.echo "Autofocus routine started."
af.AutoFocus()

Do While Not AutoFocusStatus
WScript.Sleep 1000
Loop