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

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