1 Тема от Dimka (изменено: Dimka, 2010-11-25 10:58:58)

  • Dimka
  • Участник
  • Неактивен

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

После длительной работы, наконец была перезагружена винда (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" - всё работает.
Есть ли у кого идеи что сломалось.

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

3 Ответ от Dimka

  • Dimka
  • Участник
  • Неактивен

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

alexii пишет:

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

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

4 Ответ от Евген (изменено: Евген, 2010-11-24 18:51:38)

  • Евген
  • Разработчик
  • Неактивен

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

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

Времени не хватает... :-(

5 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

Dimka пишет:

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

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

6 Ответ от jite (изменено: jite, 2010-11-24 20:35:47)

  • jite
  • Разработчик
  • Неактивен

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

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

7 Ответ от Dimka

  • Dimka
  • Участник
  • Неактивен

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

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

8 Ответ от Pix

  • Pix
  • Участник
  • Неактивен

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

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

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

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

9 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

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

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

10 Ответ от Pix

  • Pix
  • Участник
  • Неактивен

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

alexii пишет:

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

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