wscript.echo "script starts"

' (1) SET UP TELESCOPE

     Dim scope
     Set scope = CreateObject("RASCOM.RASCOMTele.1")

'  Create the TheSky object (for loading object coordinates)

      Dim objTheSky
      Set objTheSky = WScript.CreateObject("RASCOM.RASCOMTheSky.1")

'  Create dome object

      Dim objDome
      Set objDome = WScript.CreateObject("RASCOM.RASCOMDome.1")


'  (5) SET UP SCRIPT CONVENTIONS (so no Dim parameters will repeat)

     Dim TargetAz, TargetAlt
     Dim szMark,AlignSeconds
     Dim prompt

   '(6) SET UP ACTIVITY LOGFILE
      Dim fso, f1, log
      Set fso = CreateObject("Scripting.FileSystemObject")  
      '8 means ForAppending
      Set log = fso.OpenTextFile("testlog.txt", 8)
      log.writeline("=================================================")
      log.writeline("=======SCRIPT STARTED " & NOW & "=======")
      log.writeline("=================================================")

'--------------------------------------------
'--------------------------------------------
     Call scope.Connect
     Call objTheSky.Connect()
     Call objDome.Connect()

     AlignSeconds = 30

     szMark = Now()
     'object="SAO 167298"

     Call scope.GetAzAlt()
     TargetAz = scope.dAz
     TargetAlt = scope.dAlt

     Call objDome.GotoAzEl(TargetAz, TargetAlt)
     log.writeline(now & " slewed to " & TargetAz & ", " & TargetAlt & " .")

     Do Until prompt = vbNo
          bErrorOccurred = FALSE 'No error has occurred
          Dur = DateDiff("s",szMark,Now())
          If (Dur>=AlignSeconds) then 
               prompt = msgbox("again?", vbYesNo)
               Call scope.GetAzAlt()
               TargetAz = scope.dAz
               TargetAlt = scope.dAlt
               Call objDome.GotoAzEl(TargetAz, TargetAlt)
               log.writeline(now & " slewed to " & TargetAz & ", " & TargetAlt & " .")
               szMark = Now()
          end if
     Loop  

     wscript.echo "script ends"