Pix, в какой момент запускается задание в планировщике?

Планировалось конечно по старту системы. Но проверял устанавливая время вручную. +2 минуты от сейчас.

Написал скрипт для отложенного запуска SQL Server. При запуске вручную, работает. При постановке в планировщик, не работает.
Забегая наперед идентифицировать причину не старта автоматического не удалось. Пробовал и группы загрузки и все такое. НИкак.

Ошибку выдает при запросе списка сервисов:

Dim objWMI : Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
For Each objService In objWMI.ExecQuery("SELECT * FROM Win32_Service where (Name = 'MSSQLSERVER' or Name like 'MSSQL$%') and State = 'Stopped' and StartMode like '%Auto%'")

А именно:
Код ошибки: 424
Текст сообщения: Object required

Т.е. по каким то причинам ExecQuery возвращает не объект. А что то другое.

Запуск происходит под одной и той же учетной записью. Все службы описанные http://forum.script-coding.com/viewtopic.php?id=738 запущены. Запуск происходит на удаленной машинке (я на ней нахожусь через удаленный стол). OS Windows 2003 server eng без сервис паков.
Права поставлены everyone полные (четыре кнопки настройки доступа к DCOM что по ссылке выше описаны).
Фаервол отключал. После всего это перезагружался.

Что еще можно проверить? Помогите добрым советом.

Давно отключены sad

Если ещё при этом не делались архивы реестра никакими другими средствами — Вы знаете как сие называется: «сам себе злобный Буратино».

Коль раньше работало, я бы для начала попробовал откатиться на одну из точек восстановления.

Давно отключены

Set objWMIService = GetObject( "winmgmts:\\" & "." & "\root\cimv2")
Set colOS = objWMIService.ExecQuery( "Select * from Win32_OperatingSystem")
For Each objOS in colOS
    MsgBox objOS.InstallDate
Next

Пишет:
Строка: 3
Символ: 1
Ошибка: Компьютер удалённого сервера не существует или недоступен
Код: 800A01CE

Сервисы "Адаптер производительности WMI" и "Расширения драйверов WMI (Windows Management Instrumentation)" - работают.
В других скриптах не работает: CreateObject("Excel.Application"). Переустановка офиса не помогла.
В других скриптах с "Scripting.FileSystemObject", "WScript.Shell", "Shell.Application", "VBScript.RegExp" - всё работает.
Есть ли у кого идеи что сломалось.