Чудеса Wmi

Работаю с WMI. Программа корректно работает с классами win32_processor, win32_baseboard, win32_PhysicalMemory. при обращении к классам win32_BIOS, Win32_ComputerSystem, Win32_DiskDrive выдает ошибку Invalid variant operation. Помогите! Выкладываю листинг.
var
Service: ISWbemServices;
ObjectSet: ISWbemObjectSet;
SObject: ISWbemObject;
PropSet: ISWbemPropertySet;
SProp: ISWbemProperty;
PropEnum, Enum: IEnumVariant;
TempObj: OleVariant;
Value: Cardinal;
StrValue: string;
begin
Service:= SWbemLocator1.ConnectServer('.', 'root\CIMV2', '', '', '',
'', 0, nil);
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.Get_Value <> null) then
begin
with SProp do
begin
if Name = 'Name' then
Label2.Caption:= Get_Value
else if Name = 'Manufacturer' then
Label4.Caption:= Get_Value
end
end;
end;
end;