option explicit

dim cn

set cn=createobject("ADODB.Connection")

cn.Provider="LCPI.IBProvider.5"

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

call cn.Open()

wscript.echo now()&" - DBMS   : "&cn.Properties("IB Base")
wscript.echo now()&" - Client : "&cn.Properties("IB Client Name")&" "&cn.Properties("IB Client Version")

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()&" - COMMIT [relax and wait]"

call cn.CommitTrans()

wscript.echo now()&" - FINISH"