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

23.08.10

Разработка - Инструментарий разработчика

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

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
(только для физ. лиц)
ReloadHASP
.zip 1,28Mb
192 1 850 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

У нас на работе периодически переставал работать ключ на одном из серверов. Написал скрипт и повесил его в "Назначенные задания", чтобы каждые 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" //infostart.ru/public/19502/

 

 

Вступайте в нашу телеграмм-группу Инфостарт

См. также

Инструментарий разработчика Роли и права Запросы СКД Программист Руководитель проекта 1С v8.3 Управляемые формы Запросы Система компоновки данных Платные (руб)

Инструменты для разработчиков 1С 8.3: Infostart Toolkit. Автоматизация и ускорение разработки на управляемых формах. Легкость работы с 1С.

15500 руб.

02.09.2020    204504    1125    410    

1025

Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Платные (руб)

Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP, УНФ, КА и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку одновременно в несколько потоков. А так же автоматически, без непосредственного участия пользователя. Решение в Реестре отечественного ПО

8400 руб.

20.08.2024    36218    209    104    

197

Инструменты администратора БД Инструментарий разработчика Роли и права Программист 1С v8.3 1C:Бухгалтерия Россия Платные (руб)

Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.

16000 руб.

10.11.2023    16645    72    39    

89

Пакетная печать Печатные формы Инструментарий разработчика Программист 1С v8.3 Запросы 1С:Зарплата и кадры бюджетного учреждения 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 Платные (руб)

Расширение для создания и редактирования печатных форм в системе 1С:Предприятие 8.3. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и прозрачность разработки, а также навести порядок в многообразии корпоративных печатных форм.

22200 руб.

06.10.2023    24213    63    28    

92

Инструментарий разработчика Программист 1С v8.3 Платные (руб)

Инструмент для написания и отладки кода в режиме «1С:Предприятие». Представляет собой консоль кода с возможностью пошаговой отладки, просмотра значений переменных любых типов, использования процедур и функций, просмотра стека вызовов, вычисления произвольных выражений на встроенном языке в контексте точки останова, синтаксического контроля и остановки по ошибке. В консоли используется удобный редактор кода с подсветкой, контекстной подсказкой, возможностью вызова конструкторов запроса и форматной строки.

9360 руб.

17.05.2024    34980    125    53    

167

SALE! 30%

Инструментарий разработчика WEB-интеграция 1С v8.3 1C v8.2 1C:Бухгалтерия 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x Платные (руб)

Инструмент для генерации OpenApi (Swagger) спецификаций на основании файлов конфигураций 1С. Это консольное и десктопное приложение на языке Rust с полноценным редактором кода, содержащим автозамену и подсвечивание ошибок для быстрого и безошибочного написания документирующего комментария.

18000 12600 руб.

22.11.2024    1917    1    0    

8

Инструментарий разработчика Программист 1С v8.3 1C:Бухгалтерия Россия Платные (руб)

Восстановление партий или взаиморасчетов, расчет зарплаты, пакетное формирование документов или отчетов - теперь все это стало доступнее. * Есть желание повысить скорость работы медленных алгоритмов! Но... * Нет времени думать о реализации многопоточности? * о запуске и остановке потоков? * о поддержании потоков в рабочем состоянии? * о передаче данных в потоки и как получить ответ из потока? * об организации последовательности? Тогда ЭТО - то что надо!!!

6000 руб.

07.02.2018    107518    249    100    

313
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. AlMax 29.08.10 14:41 Сейчас в теме
похожая ситуация, иногда тухнет ключ только катрановский, для него какой скрипт использовать?
2. gimmy 24 30.08.10 07:56 Сейчас в теме
Не в курсе что за ключ такой. В моем скрипте с помощью Aladdin Monitor получаем список работающих ключей (имена серверов с ключами), и если в этом списке не находим наш сервер то перезапускаем службу.
В вашем случае если для работы ключа нужно запустить какую-нибудь программу или службу, то их и надо перезапустить.
3. adapter 418 22.12.10 11:26 Сейчас в теме
зачем такие сложности? Getinfo.exe изобретали. Я на сервере ключа делаю назначение задание, cmd, net stop, net start. В чем разница ?
4. gimmy 24 18.05.11 11:31 Сейчас в теме
Getinfo.exe изобретал не я, и использую я его для того чтобы определить работает ли ключ или нет, потому что служба может быть и запущена а ключ никто не видит.
5. napan 41 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 1008 07.05.13 11:55 Сейчас в теме
Надо же, еще кто-то по честному 1С-ку устанавливает!
:)
Дмитрий74Чел; +1 Ответить
9. mc1c80 24.09.13 16:06 Сейчас в теме
10. rinel 04.12.13 13:21 Сейчас в теме
У меня в состоянии назначенного задания сообщение: "Запланированное задание не было запущено, поскольку не был указан пароль пользователя". Подскажите, что сделать.
Оставьте свое сообщение