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

23.08.10

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

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

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

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

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

 

 

См. также

SALE! 20%

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

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

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 10400 руб.

02.09.2020    122233    673    389    

715

SALE! 25%

Infostart PrintWizard

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

Инструмент, позволяющий абсолютно по-новому взглянуть на процесс разработки печатных форм. Благодаря конструктору можно значительно снизить затраты времени на разработку печатных форм, повысить качество и "прозрачность" разработки, а также навести порядок в многообразии корпоративных печатных форм.

18000 15300 руб.

06.10.2023    7313    22    6    

39

SALE! 20%

Infostart УДиФ: Управление данными и формами

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

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

10000 8000 руб.

10.11.2023    3560    11    1    

34

SALE! 30%

PowerTools

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

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177768    1074    0    

849

Многопоточность. Универсальный «Менеджер потоков» 2.1

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

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

5000 руб.

07.02.2018    99360    239    97    

296

[ЕХТ] Фреймворк для Расширений 1С

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

"Фреймворк для Расширений 1С" это универсальное и многофункциональное решение, упрощающее разработку и поддержку создаваемых Расширений. Поставляется в виде комплекта из нескольких Расширений с открытым исходным кодом. Работает в любых Конфигурациях в режиме Управляемого приложения с режимом совместимости 8.3.12 и выше без необходимости внесения изменений в Конфигурацию.

3000 руб.

27.08.2019    18124    6    8    

40

1С HTML Шаблоны / HTML Templates

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

Быстрая и удобная обработка для работы с шаблонами HTML. Позволяет легко и быстро формировать код HTML.

2040 руб.

27.12.2017    28114    3    10    

15

Выполнение произвольного кода или запроса с параметрами через Web-сервис (замена COM-подключений)

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

В процессе работы в 1С часто возникает потребность получить данные из другой базы.  Обычно это делается через COM-соединение, и время выполнения запроса при этом оставляет желать лучшего. В данной публикации представлено универсальное решение, позволяющее практически моментально выполнить произвольный код или запрос с параметрами в другой информационной базе через Web-сервис.

2400 руб.

24.09.2019    23605    15    15    

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