Проверка и запуск менеджера Mysql Cluster

Файл C:\mysql\cluster\bin\checkmgmd.vbs

Set oShell = WScript.CreateObject("WScript.Shell")
strComputer = "."
strProcess = "ndb_mgmd.exe"
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = '" & strProcess & "'")
If colProcesses.Count = 0 Then
	oShell.Run "C:\mysql\cluster\bin\manager.vbs",0,False
End If

Добавляем запуск вышеуказанного скрипта в планировщик заданий с интервалом в пять минут на каждый день

получение данных в 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