gifts2017

Автоматический перезапуск службы HASP Loader

Опубликовал gimmy (gimmy) в раздел Администрирование - Сервисные утилиты

Проверяет работу ключа на компьютере, где запускается скрипт. И если не работает, то перезапускает службу

У нас на работе периодически переставал работать ключ на одном из серверов. Написал скрипт и повесил его в "Назначенные задания", чтобы каждые 5 минут проверял работу ключа и перезапускал службу. Можно поставить время и меньше, но бывает что информация по работе ключей долго собирается.

В архиве находится скрипт и дополнительные файлы.

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

Option Explicit
On Error Resume Next
Dim objNetwork
Dim strComputerName,WshShell
Dim body,ts,fs,fsget,KeyWork
    Set WshShell = WScript.CreateObject("WScript.Shell")
    RetCode = WshShell.Run("taskkill /F /IM getinfo.exe", 0, True)
    RetCode = WshShell.Run("taskkill /F /IM aksmon.exe", 0, True)
    Wscript.Sleep 2000
    RetCode = WshShell.Run("GetInfo.exe", 0, True)
    Set objNetwork = CreateObject("WScript.Network")
    strComputerName = Ucase(objNetwork.ComputerName)
    Set fs = CreateObject("Scripting.FileSystemObject")
    body = ""
    KeyWork = 0
    Set ts = fs.OpenTextFile("Out.txt",1) 
        While Not ts.AtEndOfStream
            body = Ucase(ts.readline())
            If Instr(1,body,strComputerName)>0 then
                KeyWork = 1
            End if
        Wend
    If KeyWork=0 Then
        RetCode = WshShell.Run("net stop ""HASP Loader""", 0, True)
        Wscript.Sleep 2000
        RetCode = WshShell.Run("net start ""HASP Loader""", 0, True)
    End if

Используются файлы из публикации "Мониторинг ключей защиты HASP" http://infostart.ru/public/19502/

 

 

Скачать файлы

Наименование Файл Версия Размер Кол. Скачив.
ReloadHASP
.zip 1,28Mb
23.08.10
169
.zip 1,28Mb 169 Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Alex (AlMax) 29.08.10 14:41
похожая ситуация, иногда тухнет ключ только катрановский, для него какой скрипт использовать?
2. gimmy (gimmy) 30.08.10 07:56
Не в курсе что за ключ такой. В моем скрипте с помощью Aladdin Monitor получаем список работающих ключей (имена серверов с ключами), и если в этом списке не находим наш сервер то перезапускаем службу.
В вашем случае если для работы ключа нужно запустить какую-нибудь программу или службу, то их и надо перезапустить.
3. AdApter (adapter) 22.12.10 11:26
зачем такие сложности? Getinfo.exe изобретали. Я на сервере ключа делаю назначение задание, cmd, net stop, net start. В чем разница ?
4. gimmy (gimmy) 18.05.11 11:31
Getinfo.exe изобретал не я, и использую я его для того чтобы определить работает ли ключ или нет, потому что служба может быть и запущена а ключ никто не видит.
5. napan Noname (napan) 11.10.11 16:41
На сервере постоянно отлетал и приходилось все делать вручную. Спасибо, тебе на сервер даже не захожу)))
6. Максим Лысенко (hooligan_slx) 28.02.12 14:22
Очень помог скрипт, а то в последнее время по непонятным причиным отваливалас служба HASP. Решение было одно постоянный перезапуск в течении всего рабочего дня. Спасибо, теперь всё работает на автомате..
7. Максим Лысенко (hooligan_slx) 28.02.12 14:22
В моем скрипте с помощью Aladdin Monitor получаем список работающих ключей (имена серверов с ключами), и если в этом списке не находим наш сервер то перезапускаем службу.
В вашем случае если для работы ключа нужно запустить какую-нибудь программу или службу, то их и надо перезапустить.
8. Юрий Осипов (yuraos) 07.05.13 11:55
Надо же, еще кто-то по честному 1С-ку устанавливает!
:)
Дмитрий74Чел; +1 Ответить
9. Макс Савостин (mc1c80) 24.09.13 16:06
10. Марина Любимова (rinel) 04.12.13 13:21
У меня в состоянии назначенного задания сообщение: "Запланированное задание не было запущено, поскольку не был указан пароль пользователя". Подскажите, что сделать.
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа