Серый форум — VBScript: [решено] перестал работать скрипт с WMI

Re: VBScript: [решено] перестал работать скрипт с WMI

2011-04-13T19:53:06Z

alexii пишет:

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

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

Re: VBScript: [решено] перестал работать скрипт с WMI

2011-04-13T17:18:18Z

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

Re: VBScript: [решено] перестал работать скрипт с WMI

2011-04-13T16:57:14Z

Здравствуйте товарищи.

Написал скрипт для отложенного запуска 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 что по ссылке выше описаны).
Фаервол отключал. После всего это перезагружался.

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

Re: VBScript: [решено] перестал работать скрипт с WMI

2010-11-25T06:58:21Z

Решил.
Помог запуск службы "Запуск серверных процессов DCOM"

Re: VBScript: [решено] перестал работать скрипт с WMI

2010-11-24T16:35:09Z

Проверьте: от чьего имени запускается, настройки DNS-сервера, корректность работы сетевых интерфейсов (попробуйте отключить). В сети также кивают на файрвол, но если это не удаленный комп, то вроде бы не должно влиять. Все равно временно его отключите... и антивирус тоже, перегрузитесь. Словом, постарайтесь исключить все возможные причины. Поиск показывает, что это характерные симптомы, правда решения даются разные... остается перебрать.

Re: VBScript: [решено] перестал работать скрипт с WMI

2010-11-24T15:51:05Z

Dimka пишет:

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

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

Re: VBScript: [решено] перестал работать скрипт с WMI

2010-11-24T14:51:05Z

ИМХО, не плохой вариант при загрузке с установочного диска сделать восстановление системы.
Должно помочь...

Re: VBScript: [решено] перестал работать скрипт с WMI

2010-11-24T14:30:32Z

alexii пишет:

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

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

Re: VBScript: [решено] перестал работать скрипт с WMI

2010-11-24T14:24:29Z

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

VBScript: [решено] перестал работать скрипт с WMI

2010-11-24T13:44:14Z

После длительной работы, наконец была перезагружена винда (XP). В результате код перестал работать.

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" - всё работает.
Есть ли у кого идеи что сломалось.