Служба агента хоста сервера VMWare не запускается

Я использую VMWare Server 2.0 на Windows Server 2003 R2. Иногда после перезапуска хост-машины служба агента хоста VMWare не запускается из-за ошибки.

Это сообщения об ошибках из средства просмотра событий:

[Диспетчер управления службами] Тайм-аут (30000 миллисекунд) ожидания подключения службы агента хоста VMware.

[Диспетчер управления службами] Службе агента хоста VMware не удалось запустить из-за следующей ошибки: служба не ответила на запрос запуска или управления своевременно.

Я установил автоматический перезапуск службы после сбоя, используя services.msc (с 10-минутной задержкой), но он все равно не запускается. Кажется, работает только запуск службы вручную.

Кто-нибудь испытывал подобное раньше? Какие есть обходные пути или исправления?

- обновлено -
Вот небольшой сценарий vbs, который я использую, чтобы проверить, запущена ли служба или нет, и автоматически запускает ее, если она не работает. Я использую планировщик для запуска этого скрипта каждые 15 минут.

strComputer = "." 
strSvcName = "VMWareHostd" 

set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

set objService = objWMI.Get("Win32_Service.Name='" & strSvcName & "'")

If objService.State= "Stopped" Then
    call SendEmail("servicescheck@pc.local","admin@pc.local","Service X stopped","")
    objService.StartService()
End If


Private function SendEmail(From, Destination, Subject, Textbody)

    sch = "http://schemas.microsoft.com/cdo/configuration/" 

    Set objEmail = CreateObject("CDO.Message")
    Set objCdoConfig = CreateObject("CDO.Configuration")

    With objCdoConfig.Fields 
        .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
        .Item(sch & "smtpserver") = "127.0.0.1" 
        .update 
    End With 

    with objEmail

        set .Configuration = objCdoConfig

        .From = From
        .To = Destination
        .Subject = Subject
        .Textbody = Textbody

    end with

    call objEmail.Send

end function

-