Set myRF = CreateObject("RoboFocus.FocusControl") msgbox myRF.actOpenComm() msgbox "Comm port status: " & myRF.getCommStatus() msgBox "Firmware version: " & myRF.getFirmwareVersion() msgBox "Power on: " msgBox "Power On Observatory ?: " myRF.actUserButtonToggle(1) WScript.Sleep(60000) msgBox "Power on Complete: " msgBox "Lights on: " myRF.actUserButtonToggle(2) msgBox "Open Observatory Roof?: " myRF.actUserButtonToggle(3) WScript.Sleep(35000) myRF.actUserButtonToggle(3) msgBox "Roof Opened: " myRF.actUserButtonToggle(2) msgBox "Lights off: " Set Command = WScript.CreateObject("WScript.Shell") cmd = """C:\Program Files\Software Bisque\TheSky6\TheSky6.exe""" Command.Run (cmd) WScript.Sleep(5000) Set Command = WScript.CreateObject("WScript.Shell") cmd = """C:\Program Files\Software Bisque\CCDSoft Version 5\CCDSoft.exe""" Command.Run (cmd) WScript.Sleep(5000) Set Command = WScript.CreateObject("WScript.Shell") cmd = """C:\Program Files\FocusMax\FocusMax.exe""" Command.Run (cmd)