Dim cam                             ' "The" Camera object

Set cam = CreateObject("MaxIm.CCDCamera")

cam.DisableAutoShutdown = True

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

cam.Expose 1, 1, 0 

Do While Not cam.ImageReady
    ' Don't consume CPU time while waiting
    wscript.sleep 100
Loop
cam.SaveImage "Script.fit"

wscript.echo "Exposure is done, Image saved as Script.fit"