adInteger=3
adVarChar=200
adParamInput=1
adCmdText=1
adExecuteNoRecords=128

Set cn=Createobject("ADODB.Connection") 

cn.ConnectionString="DRIVER={InterSystems ODBC35}; SERVER=127.0.0.1; PORT=1972; DATABASE=USER; UID=_system; PWD=SYS"
cn.open

Set cmd = Createobject("ADODB.Command")

with cmd
  .ActiveConnection = cn
  .CommandText = "insert into del.tmp1(f1,f2)values(?,$LISTFROMSTRING(?,'^'))"

  .Parameters.Append .CreateParameter("p1", adInteger, adParamInput, 4, 55)
  .Parameters.Append .CreateParameter("p2", adVarChar, adParamInput, 32749, "asd^zxc^ert")

  .Execute ,,adCmdText + adExecuteNoRecords
  Set rs = cn.Execute("select LAST_IDENTITY()")
  WScript.Echo rs.Fields(0).Value

  cmd("p1")=44
  cmd("p2")="a^b^r^g"

  .Execute ,,adCmdText + adExecuteNoRecords
  Set rs = cn.Execute("select LAST_IDENTITY()")
  WScript.Echo rs.Fields(0).Value

  cmd("p1")=33
  cmd("p2")=null

  .Execute ,,adCmdText + adExecuteNoRecords
  Set rs = cn.Execute("select LAST_IDENTITY()")
  WScript.Echo rs.Fields(0).Value
end with

WScript.Echo "Succesfully!"

1
2
3
Succesfully!