Сервисы поддержки / Примеры / Разное / автоматическое "поднятие" сервиса УТА

автоматическое "поднятие" сервиса УТА

Автор:Izmajlov
Дата:07.05.2010
Просмотров:4814
Скачиваний:1958
Оценка: - , Оценок - 0

Описание

Для тех банков. которые перешли на СВК, и которые используют универсальный транспортный адаптер (УТА) будет полезным данный скрипт, который можно целиком подключит в nnCron, я поставил на период в 20 минут..
Он проверяет каждые 20 минут активет лди сервис UTAService, и если нет, по стартует его.
Для успешного выполнения скрипта необходимы права в ОС на это.
Синтаксис nnCron сохранен полностью, кому не надо сей код, могут воспользоваться фрагментом между
<VBScript></SCRIPT>

С уважением,
Измайлов Ф.В.

Текст примера

 #( CheckUtaService
Time: */15 8-21 * * 1-5 *
Action:
<VBScript>
DIM b
Set objCollection = GetObject("WinMgmts:").ExecQuery("Select * from Win32_Service where name='UTAService'")  
If(objCollection.count <>0) Then  
  set b= createobject("CDO.Message")
  For each obj in objCollection  
   'WScript.echo(obj.state)
   if(obj.State="Stopped") then
     obj.StartService 
     With b
       .from="<alert@domen.ru>"
       .to="<email1@domen.ru>,<email2@domen.ru>"
       .subject="Внимание - UTAService остановился !!!!!"
       .textbody=""
       .configuration.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtpserver"
       .configuration.fields("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
       .configuration.fields.update
       .send
     end with
   end if
  Next  
End If
</SCRIPT>