'-------------------------
'ScopeDome Demo VBS script
'-------------------------
'Jacek Pala
'2009 Słupsk
'ScopeDomeUSB Driver
'-------------------------
'Driver implements all standard ASCOM 5.0a platform dome commands
'and adds same new set.
'ScopeDomeUSB Driver specific command
'
'Power Swich command: Light, CCD, Fan, Scope, All
'
'Utils Command: Wait(miliseconds), DerotateDome, DomeError
dim dome
set dome = createobject ("Ascom.ScopeDomeUSBDome.Dome")
dome.Connected=true
dome.OpenShutter
dome.SlewToAzimuth(5)
dome.wait(2000)
wscript.echo "Script test 0"
dome.Light = true
dome.CCD = true
dome.FAN = true
dome.Scope = true
dome.wait(2000)
wscript.echo "Script test 1"
dome.Light = false
dome.CCD = false
dome.FAN = false
dome.Scope = false
dome.wait(2000)
wscript.echo "Script test 2"
dome.all=true
dome.derotateDome
wscript.echo dome.DomeError
wscript.echo "Script test 3"
dome.all=false
wscript.echo "Script End"