Вот как тут чего передать?
з.ы. я басик жутко фигово знаю
strDSN = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Billing1;Data Source=SERVER"
Set objConn = WScript.CreateObject("ADODB.Connection")
Set objRs1 = WScript.CreateObject("ADODB.RecordSet")
objConn.Open strDSN
strSQL = "SELECT * FROM tblUsers"
objRs1.Open strSQL, strDSN
objRs1.MoveFirst()
do while not (objRs1.EOF)
ID = objRs1.Fields("ID").Value
US = objRs1.Fields("UserSumm").Value
UserSummNew = US - 0.75
strSQL = "UPDATE tblUsers SET UserSumm = " & UserSummNew & " WHERE ID = " & ID
WScript.echo (strSQL)
objConn.Execute (strSQL)
objRs1.MoveNext()
Loop
objRs1.Close()
objConn.Close()