' This can be excuted from the command line using cscript as in:
' % cscript GetObject.vbs
' To run it in the debugger, pass the //X flag to cscript

' Stream constants
Const adTypeBinary = 1
Const adTypeText = 2
Const adSaveCreateOverWrite = 2

' create a Connection object...
Set m_Conn = CreateObject("Adodb.Connection")
m_conn.Open "dsn=retstest"
Set m_rs = CreateObject("ADODB.Recordset")
Set mstream = CreateObject("ADODB.Stream")
mstream.Type = adTypeBinary

strSQL = "SELECT * FROM object:binary:Property WHERE type='Photo' AND object_key='LN000001' AND object_id=1"
Set m_rs = m_conn.Execute(strSQL)

wscript.echo "EOF: " & m_rs.eof
wscript.echo "m_rs(0): " & m_rs(0).Name & " = " & m_rs(0)
wscript.echo "m_rs(1): " & m_rs(1).Name & " = " & m_rs(1)
wscript.echo "m_rs(2): " & m_rs(2).Name & " = " & m_rs(2)
wscript.echo "m_rs(3): " & m_rs(3).Name & " = " & m_rs(3)
 
mstream.Open
mstream.Write m_rs("raw_data")
mstream.SaveToFile "test.jpg", adSaveCreateOverWrite
mstream.close

m_rs.close
Set m_rs = nothing
m_conn.close
Set m_conn = nothing
Set mstream = nothing