Запуск службы

[patm]

Не удается запустить службу.Вручную можно, а из VBA не получается:

hSCManager = OpenSCManager(vbNullString, vbNullString,SC_MANAGER_CONNECT)
hService = OpenService(hSCManager, "ihDataArchiver", SERVICE_ALL_ACCESS)
b=StartService(hService, 0, 0)

первые две ф-ции (из библиотеки Advapi32.dll) срабтывают нормально, возвращают ссылки, последняя выдает false.
Хорошо, если бы кто-нибудь помог. Спасибо.