option explicit

dim cn

set cn=createobject("ADODB.Connection")

cn.Provider="LCPI.IBProvider.3"

cn.Properties("location").value="localhost:d:\database\ram\ibp_test_fb30_d3_2.gdb"
cn.Properties("user id").value="GAMER"
cn.Properties("password").value="vermut"
cn.Properties("dbclient_library").value="fbclient_30.dll"

call cn.Open()

call cn.BeginTrans()

dim cmd, rs
set cmd=createobject("ADODB.Command")

set cmd.ActiveConnection=cn

cmd.CommandText="select ID from DUAL"

dim n

n=0

wscript.echo now()&" - START"

while(n<50000)
 n=n+1 

 if((n mod 10000)=0)then
  wscript.echo now()&" - "&n
 end if

 set rs=cmd.Execute()

 call rs.Close()
 
 set rs=nothing
wend

wscript.echo now()&" - STOP "

wscript.echo now()&" - SET QUERY TEXT"

cmd.CommandText="select ID+1 from DUAL"

wscript.echo now()&" - PREPARE+EXECUTE [relax and wait]"

set rs=cmd.Execute()

wscript.echo now()&" - FETCH FIRST RECORD"

wscript.echo "ID+1="&cstr(rs(0).value)

wscript.echo now()&" - EXIT"

29.05.2017 10:32:11 - START
29.05.2017 10:32:12 - 10000
29.05.2017 10:32:15 - 20000
29.05.2017 10:32:18 - 30000
29.05.2017 10:32:22 - 40000
29.05.2017 10:32:27 - 50000
29.05.2017 10:32:27 - STOP
29.05.2017 10:32:27 - SET QUERY TEXT
29.05.2017 10:32:27 - PREPARE+EXECUTE [relax and wait]
29.05.2017 10:42:44 - FETCH FIRST RECORD
ID+1=2
29.05.2017 10:42:44 - EXIT