Thanks so much guys. You're right, the answer was to set RA=(LST-6hrs). Assume it would be
plus 6hrs if Northern Hemisphere, and Dec should be 90 instead of -90.
Here's the very basic script. Please excuse any odd coding practices - I'm not a programmer. Test it first yourself with finger on the mount control "all stop" button at the ready, just in case. It worked for me tonight, but LST was more than 6. I just added the little if/then in case less than 6 to avoid negative RA, but that bit is untested.
Code:
' ####################
' temma_park.vbs
' Script to park at RA=(LST-6), DEC=-90
' by Troy Piggins
' #########################
Option Explicit
' #########################
Dim objChooser,objScope,strScopeProgID
Set objChooser=WScript.CreateObject("ASCOM.Utilities.Chooser")
objChooser.DeviceType="Telescope"
strScopeProgID=objChooser.Choose(strScopeProgID)
' connect to ASCOM, unpark, and start tracking
Set objScope=WScript.CreateObject(strScopeProgID)
objScope.Connected=True
If objScope.AtPark Then
objScope.Unpark
End If
If Not objScope.Tracking Then
objScope.Tracking=True
End If
Dim hmsLST,hmsRAPark,degDecPark
hmsLST=objScope.SiderealTime
if hmsLST<6 then
hmsLST=hmsLST+24
end if
hmsRAPark=hmsLST-6
degDecPark=-90
objScope.SlewToCoordinates hmsRAPark,degDecPark
objScope.Tracking=False
objScope.Park
objScope.Connected=False
WScript.Echo "Done."