On error resume next

WScript.Timeout = 45000

Dim R3 
Dim func 
Dim cmd 
Dim conStr,galconStr,WriteReceivedData
Dim opera
Dim usernrec

WScript.Echo "Начинаем синхронизацию"

'параметры
Set objArgs = WScript.Arguments
ingr_PATH	= objArgs(2)
ingr_galUSR	= objArgs(0)
ingr_galPAS	= objArgs(1)

usernrec=100
conStr ="Provider=SQLOLEDB.1;Persist Security Info=False;Data Source=DENIS\MYSERV;Initial Catalog=data3;User Id=" & ingr_galUSR	& ";Password=" &ingr_galPAS& ";Current Language=English"

Set cmd = CreateObject("ADODB.Command")
set cn  = CreateObject("ADODB.Connection")
if Err.Number <> 0 then 
    WScript.echo "ошибка1"
end if 

cn.ConnectionString = conStr
cn.ConnectionTimeOut = 0
cn.CommandTimeout = 0

cn.Open
if Err.Number <> 0 then 
    WScript.echo "ошибка2" & cStr(Err.Number)
end if 

cmd.Activeconnection=cn
cmd.CommandText="select distinct XBLNR from dbo.ingr_sklfo_import where isnull(opera,'') <>'' and XBLNR<>'' and blart='D1' and strec=?"
cmd.commandType=1
cmd.NamedParameters=True

cmd.parameters.Append cmd.CreateParameter("@id",adInteger,adParamInput,4,usernrec)

if Err.Number <> 0 then 
	WScript.echo "ошибка param: " & cStr(Err.Number) 
end if
..
..

cmd.Activeconnection=cn
cmd.CommandText="select distinct XBLNR from dbo.ingr_sklfo_import where isnull(opera,'') <>'' and XBLNR<>'' and blart='D1' and strec=?"
cmd.commandType=1

set rs=cmd.execute(rows_affected, Array(usernrec))