фоновый VBA-скрипт для проверки состояния менеджеров кластера
- 5
- 0
- Опубликовано: 2013-04-02
Очень важная и первоочередная задача - постоянно опрашивать менедежры кластера, п.ч. если они оба выйдут из строя, все базы данных кластера станут доступны только для чтения.
Итак, первым делом - создаем хитрый скрипт и опять на VBS )))
файл 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
//конец кода
Итак, в вышеприведенном коде мы сначала проверяем процесс менеджера и если его нет - запускаем.
Добавляем запуск скрипта в планировщик заданий с минимальным интервалом на 5 минут и с повышенными правами.
Сие действие производим сразу на двух серверах windows.
Итак, первым делом - создаем хитрый скрипт и опять на VBS )))
файл 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
//конец кода
Итак, в вышеприведенном коде мы сначала проверяем процесс менеджера и если его нет - запускаем.
Добавляем запуск скрипта в планировщик заданий с минимальным интервалом на 5 минут и с повышенными правами.
Сие действие производим сразу на двух серверах windows.
Комментариев нет
оставить комментарий могут только авторизованные пользователи