WMI + Windows XP = Access violation at address ...

[bakanaev]

Здравствуйте. Есть код для получения названия OC, юзается WMI. При запуске на операционках Win7\win8 все работает прекрасно, но при запуске на win xp вылетает

Access violation at address 00570054 in module 'Project2.exe'. Write of address 5A732CB5.

сам код и место вылета (помечено красным)

  procedure GetParams;
  var
    Services : ISWbemServices;
    Locator : ISWbemLocator;
    ObjectSet : ISWbemObjectSet;
    Obj : ISWbemObject;
    varProp : oleVariant;
  begin
    Locator := CoSWbemLocator.Create();

    Services := Locator.ConnectServer('.','root\cimv2','','','','',0,nil);

    Locator := nil;

    {OperatingSystem}
    ObjectSet := Services.ExecQuery('select Caption from Win32_OperatingSystem', 'WQL',
                                    WbemScriptingMajorVersion and wbemFlagReturnImmediately, nil);

    obj := ObjectSet.ItemIndex(0); // Вот тут и вылетает access

    varProp := null;

    varProp := obj.Properties_.Item('Caption', 0);
    ShowMessage(VarToStr(varProp));
end;

К сожалению я не селен в работе с WMI, поэтому взял код из гугла. Подскажите что не так.
Спасибо!

[bakanaev]

А что бы WMI работал что вообще нужно? Может .NET Framework какой-то или еще что-то ?

[Stilet]

ObjectSet нужно проверять

if not VarIsClear(ObjectSet ) then begin
    varProp := unassigned;
    varProp := obj.Properties_.Item('Caption', 0);
    if not VarIsClear(varProp) then
     ShowMessage(VarToStr(varProp));
end;

Иначе что-то пошло не так.

что бы WMI работал что вообще нужно?

Только библиотеку WMI и доступ к ее возможностям по безопасности.

[bakanaev]

Сообщение от Stilet

ObjectSet нужно проверять

if not VarIsClear(ObjectSet ) then begin
    varProp := unassigned;
    varProp := obj.Properties_.Item('Caption', 0);
    if not VarIsClear(varProp) then
     ShowMessage(VarToStr(varProp));
end;

Иначе что-то пошло не так.

ObjectSet в порядке, код между begin и end выполняется, но опять же access

Может win xp не знает ISWbemObject? Или dll какую надо рядом положить с этим ISWbemObject ?

[Stilet]

Стоп! А это зачем написал?: Locator := nil;

Может win xp не знает

Должен знать. WMI появилась еще в NT.

но опять же access

Чего-то ты не проверяешь. Могу попробовать посоветовать почитать мою статью
http://www.programmersclub.ru/wmi-w%...0%b9-%d1%87-1/
http://yandex.ru/clck/jsredir?from=y...65647621309537

[bakanaev]

Stilet спасибо за помощь, и за статьи, но сделал так

 procedure GetParams;
  var
    Service:             ISWbemServices;
    ObjectSet:           ISWbemObjectSet;
    SObject:             ISWbemObject;
    PropSet:             ISWbemPropertySet;
    SProp:               ISWbemProperty;
    SWbemLocator1:        SWbemLocator;
    PropEnum, Enum:      IEnumVariant;
    TempObj:             OleVariant;
    Value:               Cardinal;
    StrValue:            string;

  begin
    SWbemLocator1 := CoSWbemLocator.Create();
    Service:= SWbemLocator1.ConnectServer('.', 'root\CIMV2', '', '', '',
        '', 0, nil);

    {BIOS}
    SObject:= Service.Get('Win32_BIOS', wbemFlagUseAmendedQualifiers, nil);
    ObjectSet:= SObject.Instances_(0, nil);
    Enum:= (ObjectSet._NewEnum) as IEnumVariant;
    Enum.Next(1, TempObj, Value);
    SObject:= IUnknown(TempObj) as SWBemObject;
    PropSet := SObject.Properties_;
    PropEnum := (PropSet._NewEnum) as IEnumVariant;
    while (PropEnum.Next(1, TempObj, Value) = S_OK) do
    begin
      SProp:= IUnknown(TempObj) as SWBemProperty;
      StrValue:= '';
      if SProp.Name = 'SerialNumber' then
      begin
        if SProp.Get_Value <> null then
          BIOSSerialNumber^ := SProp.Get_Value
        else
          BIOSSerialNumber^ := 'N/A';
      end;
    end;

    {Processor}
    SObject:= Service.Get('Win32_Processor', wbemFlagUseAmendedQualifiers, nil);
    ObjectSet:= SObject.Instances_(0, nil);
    Enum:= (ObjectSet._NewEnum) as IEnumVariant;
    Enum.Next(1, TempObj, Value);
    SObject:= IUnknown(TempObj) as SWBemObject;
    PropSet := SObject.Properties_;
    PropEnum := (PropSet._NewEnum) as IEnumVariant;
    while (PropEnum.Next(1, TempObj, Value) = S_OK) do
    begin
      SProp:= IUnknown(TempObj) as SWBemProperty;
      StrValue:= '';
      if SProp.Name = 'ProcessorId' then
      begin
        if SProp.Get_Value <> null then
          ProcessorProcessorId^ := SProp.Get_Value
        else
          ProcessorProcessorId^ := 'N/A';
      end;
    end;


    {BaseBoard}
    SObject:= Service.Get('Win32_BaseBoard', wbemFlagUseAmendedQualifiers, nil);
    ObjectSet:= SObject.Instances_(0, nil);
    Enum:= (ObjectSet._NewEnum) as IEnumVariant;
    Enum.Next(1, TempObj, Value);
    SObject:= IUnknown(TempObj) as SWBemObject;
    PropSet := SObject.Properties_;
    PropEnum := (PropSet._NewEnum) as IEnumVariant;
    while (PropEnum.Next(1, TempObj, Value) = S_OK) do
    begin
      SProp:= IUnknown(TempObj) as SWBemProperty;
      StrValue:= '';
      if SProp.Name = 'SerialNumber' then
      begin
        if SProp.Get_Value <> null then
          BaseBoardSerialNumber^ := SProp.Get_Value
        else
          BaseBoardSerialNumber^ := 'N/A';
      end;
    end;
  end;

Теперь работает и на XP