Set p = CreateObject("PinPoint.Plate")
p.AttachFITS "C:\Users\Robert B. Denny\Desktop\Makemake-015SR_cor.fts"
p.Catalog = 3 ' Corrected GSC
p.CatalogPath = "D:\Catalogs\Guide Star Catalog 1.1"
p.ArcsecPerPixelHoriz = 1.7 '206.3*48.0/4763.
p.ArcsecPerPixelVert = 1.7' 206.3*48.0/4763.
WScript.Echo 206.3*48.0/4763.
p.RightAscension = p.TargetRightAscension
p.Declination = p.TargetDeclination
p.Solve
'p.UpdateFITS
WScript.Echo p.RightAscension & " " & _
p.Declination
WScript.Echo p.ArcSecPerPixelHoriz