![]() |
|
"В сетевом ключе защиты программы не обнаружено свободной лицензии" а они есть | ☑ | ||
---|---|---|---|---|
0
Формат
03.09.13
✎
09:28
|
Стало появляться такое сообщение.
Есть два ключа по 20 лицензий, стоят на разных машинах. В терминале, где пользователи запускают 1С, в нетхасп прописаны IP машин на которых стоят эти два ключа. Работают несколько пользователей (<10) остальным выходит сообщение о нехватки лицензий. Смотрю монитор, он показывает на этих двух машинах что 20 из 20 лицензий занято, причем, большая часть "подключений к ключу" имеет timeout равным 0. Складывается такое ощущение что лицензии когда то использовались, но со временем не освободились. Как можно побороть эту проблемку? Первое что пришло в голову - это периодически делать рестарт службы хаспа лицензий, но может есть более кошерный метод? |
|||
1
Maxus43
03.09.13
✎
09:30
|
перезапусти менеджер лицензий, бывает зависают неактивные
|
|||
2
Формат
03.09.13
✎
09:31
|
(1) так это да, сделал, все стало нормально. Но как на будущее от этого избавится.
|
|||
3
Maxus43
03.09.13
✎
09:33
|
(2) батник на перезапуск менеджера повесь. не постоянно они зависают, просто бывает. ночью перезапускай и норм
|
|||
4
Кай066
03.09.13
✎
09:41
|
(2) напиши скрипт, который будет "перезапускать" LM каждые 30 минут
|
|||
5
Кай066
03.09.13
✎
09:43
|
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 |
|||
6
Bober
03.09.13
✎
09:46
|
(0) лицензии терминальных пользователей зависит навсегда, помогает перезапуск менеджера.
|
|||
7
Maxus43
03.09.13
✎
09:47
|
(5) вот непонимаю я вас, скриптописателей. Таск киллы ещё...
батник из 2-х строк net stop службаменеджера net start службаменеджера |
|||
8
Ranger_83
03.09.13
✎
09:47
|
(0) предвестник того,что скоро погорит ключ
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |