Hello, oo4o World! (VBScript + oo4o + Oracle)

Hello.vbs

Option Explicit
 
Call Main()
 
Sub Main()
    Dim ses
    Dim db
    Dim rs
    Set ses = CreateObject("OracleInProcServer.XOraSession")
    Set db = ses.OpenDatabase( "", "scott/tiger", 0 )
    Set rs = db.CreateDynaset( "SELECT 'Hello, oo4o World!' AS Message FROM DUAL", 4)
    While NOT rs.EOF
        WScript.Echo rs(0).Name
        WScript.Echo "------------------"
        WScript.Echo rs(0).Value
        rs.MoveNext
   Wend
End Sub