получение данных в VBS через ODBC


set args = WScript.Arguments
num = args.Count

limitvar = "3000"

if num > 0 then
limitvar = args.Item(0)
end if

sqlvar = "SELECT username, user_email FROM phpbb_users  where user_email LIKE '%@smeta.ru' LIMIT "

set appAccess = createObject("AdoDB.Connection")
set objRecordset = createObject("AdoDB.Recordset")
appAccess.open "DSN=forum"
objRecordset.open sqlvar & limitvar,appAccess,3,3

do until objRecordset.EOF
WScript.Echo objRecordset(0).value & VbTab & VbTab & VbTab & objRecordset(1).value
objRecordset.Movenext
loop
objRecordset.close
appAccess.Close


P.S. запуск этого скрипта в консоли (cmd) с аргументом количества нужных записей (например 7):

cscript odbc.vbs 7