'---------------------------------------------------------------
'
' ***  header.vbs ***
'
' Usage:   cscript header.vbs <image file>
' Example: cscript header.vbs testimage.fit
'
' Uses the ASCOM FITS image driver
' --> http://www.easysky.de/ASCOM/Image/FITS.htm
' and lists the image properties (FITS keywords) which
' are recognized by the driver.
'
' Matthias Busch (matthias.busch@easysky.de) 2003-07-20
'---------------------------------------------------------------

Function ListProperties(ByVal image)
On Error Resume Next
   WScript.Echo "01 Airmass                  = " & image.Airmass
   WScript.Echo "02 Altitude                 = " & image.Altitude
   WScript.Echo "03 ApertureArea             = " & image.ApertureArea
   WScript.Echo "04 ApertureDiameter         = " & image.ApertureDiameter
   WScript.Echo "05 ArcsecPerPixelHoriz      = " & image.ArcsecPerPixelHoriz
   WScript.Echo "06 ArcsecPerPixelVert       = " & image.ArcsecPerPixelVert
   WScript.Echo "07 Azimuth                  = " & image.Azimuth
   WScript.Echo "08 BinningHoriz             = " & image.BinningHoriz
   WScript.Echo "09 BinningVert              = " & image.BinningVert
   WScript.Echo "10 BlackLevel               = " & image.BlackLevel
   WScript.Echo "11 Camera                   = " & image.Camera
   WScript.Echo "12 CCDTemperature           = " & image.CCDTemperature
   WScript.Echo "13 ColorBand                = " & image.ColorBand
   WScript.Echo "14 Columns                  = " & image.Columns
   WScript.Echo "15 CreationSoftware         = " & image.CreationSoftware
   WScript.Echo "16 Declination              = " & image.Declination
   WScript.Echo "17 EGain                    = " & image.EGain
   WScript.Echo "18 EMail                    = " & image.EMail
   WScript.Echo "19 Equinox                  = " & image.Equinox
   WScript.Echo "20 ExposureInterval         = " & image.ExposureInterval
   WScript.Echo "21 ExposureStartTime        = " & image.ExposureStartTime
   WScript.Echo "22 FilterName               = " & image.FilterName
   WScript.Echo "23 FocalLength              = " & image.FocalLength
   WScript.Echo "24 Humidity                 = " & image.Humidity
   WScript.Echo "25 ImageType                = " & image.ImageType
   WScript.Echo "26 ModificationSoftware     = " & image.ModificationSoftware
   WScript.Echo "27 NumberOfImagesCombined   = " & image.NumberOfImagesCombined
   WScript.Echo "28 Observatory              = " & image.Observatory
   WScript.Echo "29 Observer                 = " & image.Observer
   WScript.Echo "30 Pedestal                 = " & image.Pedestal
   WScript.Echo "31 PixelSizeHoriz           = " & image.PixelSizeHoriz
   WScript.Echo "32 PixelSizeVert            = " & image.PixelSizeVert
   WScript.Echo "33 Pressure                 = " & image.Pressure
   WScript.Echo "34 RightAscension           = " & image.RightAscension
   WScript.Echo "35 RollAngle                = " & image.RollAngle
   WScript.Echo "36 Rows                     = " & image.Rows
   WScript.Echo "37 Saturation               = " & image.Saturation
   WScript.Echo "38 SiderealTime             = " & image.SiderealTime
   WScript.Echo "39 SiteElevation            = " & image.SiteElevation
   WScript.Echo "40 SiteLatitude             = " & image.SiteLatitude
   WScript.Echo "41 SiteLongitude            = " & image.SiteLongitude
   WScript.Echo "42 SubFrameXOrigin          = " & image.SubFrameXOrigin
   WScript.Echo "43 SubFrameYOrigin          = " & image.SubFrameYOrigin
   WScript.Echo "44 TargetDeclination        = " & image.TargetDeclination
   WScript.Echo "45 TargetName               = " & image.TargetName
   WScript.Echo "46 TargetRightAscension     = " & image.TargetRightAscension
   WScript.Echo "47 Telescope                = " & image.Telescope
   WScript.Echo "48 Temperature              = " & image.Temperature
   WScript.Echo "49 TrackingExposureInterval = " & image.TrackingExposureInterval
   WScript.Echo "50 WhiteLevel               = " & image.WhiteLevel
End Function

'---------------------------------------------------------------

Sub Main
   If WScript.Arguments.Count = 0 Then
      WScript.Echo "Please specify an input filename as argument."
      Exit Sub
   End If

   ' First argument is the FITS file to read
   filename = WScript.Arguments.Item(0)

   ' Create the ASCOM FITS driver object
   Set image = CreateObject("FITS.Image")

   ' Read the file from disk
   WScript.Echo "Parsing " & filename & "..."
   image.ReadFromFile filename

   ' List FITS keywords of the image
   WScript.Echo ""
   ListProperties(image)
End Sub


'---
Main
'---