Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WMI не работает в сервисе, Interface not supported 
:(
    Опции темы
RinOSpro
Дата 18.3.2009, 12:37 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Здравствуйте! Столкнулся с проблемой! Есть VCL сервис, в нем используется WMI, для получения информации о железе. Работало в 99,9% но на некотых компьютерах не работает. Вот случилось так что и на моем (Windows 2000) перестало работать.

Вот кусок кода:
Код

...
function WMIGetInfo(const Comp, NameSpace, User, Pass, Arg: WideString; var Instances: integer)
...
wmiServices := wmiLocator.ConnectServer (Comp, Namespace, User, Pass,'', '', 0, nil) ;
if Pos ('SELECT', Arg) = 1 then
  wmiObjectSet := wmiServices.ExecQuery (Arg, 'WQL', wbemFlagReturnImmediately, nil)
else
  wmiObjectSet := wmiServices.InstancesOf(Arg, wbemFlagReturnImmediately or wbemQueryFlagShallow, nil);
Instances := wmiObjectSet.Count;
if Instances = 0 then
  Exit;
Enum := (wmiObjectSet._NewEnum) as IEnumVariant;
...


В последней строке возникает исключительная ситуация Interface not Supported.

Что делать незнаю... Что вбивать в гугл тоже не понятно... Если кто то сталкивался с подобной проблемой подскажите плиз.
  Вверх
Sanchezzz
Дата 18.3.2009, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60
эх... ссылка


--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
RinOSpro
Дата 18.3.2009, 12:50 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Sanchezzz сделано как там! Даже лучше чем там!

Проблема в особенностях работы, WMI в сервисе. Но вот в каких... 
  Вверх
Sanchezzz
Дата 18.3.2009, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60
я так думаю тут особености 2000 если в других системах работает


--------------------
Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.
PM MAIL Skype GTalk   Вверх
RinOSpro
Дата 18.3.2009, 13:31 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Sanchezzz получал письма что проблема возникала и на XP, и на 2003 так что дело не в ОС. Но повторюсь это очень редкая ошибка...

Это сообщение отредактировал(а) RinOSpro - 18.3.2009, 14:21
  Вверх
RinOSpro
Дата 8.4.2009, 15:01 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Не решил еще (( может еще есть какие идеи?
  Вверх
Rrader
  Дата 9.4.2009, 09:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191
RinOSpro, в аттаче мой пример, там другой подход. Проверьте работоспособность

Присоединённый файл ( Кол-во скачиваний: 19 )
Присоединённый файл  WMI.rar 13,86 Kb


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
RinOSpro
Дата 10.4.2009, 10:40 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Не выполняется условие вот в этой строке:
Код

      if Succeeded(Locator.ConnectServer('root\CIMV2', '', '', '',
        WBEM_FLAG_CONNECT_USE_MAX_WAIT, '', nil, Services)) then


Locator.ConnectServer возвращает -2147217400

А в коде где ни будь разве не надо задавать к какому компьютеру мы поключаемся? или по умолчанию считается локальный комп?
  Вверх
Rrader
  Дата 11.4.2009, 17:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191
Цитата(RinOSpro @  10.4.2009,  16:40 Найти цитируемый пост)
Locator.ConnectServer возвращает -2147217400

Цитата

WBEM_E_INVALID_PARAMETER - An invalid parameter was specified. 

Интересно проверить, что именно неверно. Можно написать еще вариант на VBScript smile  

Цитата(RinOSpro @  10.4.2009,  16:40 Найти цитируемый пост)
А в коде где ни будь разве не надо задавать к какому компьютеру мы поключаемся? или по умолчанию считается локальный комп?

Как раз в этой строчке и указывается. Здесь запись упрощенная, сервер на локальном компе. Подробности в MSDN.
IWbemLocator::ConnectServer Method (Windows)

Это сообщение отредактировал(а) Rrader - 11.4.2009, 17:13


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1253 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.