Set f = CreateObject("CacheActiveX.Factory")
Set rs = CreateObject("CacheActiveX.ResultSet")
If Not f.IsConnected() Then

f.Connect("cn_iptcp:127.0.0.1[1972]:SAMPLES:_SYSTEM:SYS")

Set rs=f.DynamicSQL("select TOP 3 * from Sample.Person")
rs.Execute()
while rs.Next
    WScript.Echo rs.Get("SSN") 'выводим поле SSN первых трёх записей из таблицы Sample.Person
wend

rs.Close()

procedure TfMain.Catalog() ;
var
 resultset : variant ;
 list  : TStringList ;
begin
 list    := TStringList.Create ;
 resultset   := connection.ResultSet('%Routine', 'RoutineList') ;
 resultset.Execute('*.MAC,*.INT', 1, 0, '') ;
 while resultset.Next() do ;
  list.Add(resultset.Get('Name')) ;
 list.SaveToFile('d:\catalog.txt') ;
end ;

procedure TfMain.Catalog() ;
var
 resultset : variant ;
 list  : TStringList ;
begin
 list    := TStringList.Create ;
 resultset   := connection.ResultSet('%RoutineMgr', 'StudioOpenDialog') ;
 resultset.Execute() ;
 while resultset.Next() do
  list.Add(resultset.Get('Name')) ;
 list.SaveToFile('d:\catalog.txt') ;
end ;

resultset.Next()

resultset.Next