VPF::delphi + wmi - Форум программистов

Штык

Дата 8.12.2008, 20:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 206
Регистрация: 9.5.2005
Где: Москоу

Репутация: нет
Всего: 1

Доброго времени суток..
Возникла необходимость в программе работать с WMI. Долго мучался читал маны (http://www.delphikingdom.com/asp/viewitem.asp?catalogid=698) ни чего, не получилось хотя все делал как там написано, все время AV вылетает, нашел функцию

Код


function GetWMIstring2 (wmiHost, wmiClass, wmiProperty : string):string;
var  // These are all needed for the WMI querying process
Locator:  ISWbemLocator;
Services: ISWbemServices;
SObject:  ISWbemObject;
ObjSet:   ISWbemObjectSet;
SProp:    ISWbemProperty;
Enum:     IEnumVariant;
Value:    Cardinal;
TempObj:  OleVariant;
SN: string;
begin
Locator := CoSWbemLocator.Create;
 Services :=  Locator.ConnectServer(wmiHost, 'root\wmi', '', '', '','', 0, nil);
ObjSet := Services.ExecQuery('SELECT * FROM '+wmiClass, 'WQL',
  wbemFlagReturnImmediately and wbemFlagForwardOnly , nil);
Enum :=  (ObjSet._NewEnum) as IEnumVariant;
while (Enum.Next(1, TempObj, Value) = S_OK) do
begin
  SObject := IUnknown(tempObj) as ISWBemObject;
  SProp := SObject.Properties_.Item(wmiProperty, 0);
  if VarIsNull(SProp.Get_Value) then
    result := ''
  else
  begin
    SN := SProp.Get_Value;
    result :=  SN;
  end;

но и при ее использовании вылетает ошибка "Project Project1.exe raised exception class EOleException with message 'Не поддерживается'"
в чем может быть проблема может версия делфи глючная? у меня Code Gear Delphi 2009..

--------------------

Lachetes familieresQui nous rendent guerrieres

Rrader

Дата 10.12.2008, 15:39 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

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

Репутация: 70
Всего: 191

Посмотрите мой пример в аттаче

Присоединённый файл ( Кол-во скачиваний: 42 )

WMI.rar 27,51 Kb

--------------------

Let's do this quickly!
Rest in peace, Vit!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »