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