CODEWITHSUNDEEP
inno-setuppascalscriptwbem
bahman jafari
bahman jafari

Reputation: 51

SWbemServicesEx Innosetup

I have made an installer for my program with Inno Setup and it has been worked fine so far, but it gives error in one system : (The system is Win7-64 bit)

SWbemServicesEx: Generic failure

The code is :

WbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
WbemServices := WbemLocator.ConnectServer('.', 'root\CIMV2');
QueryGPU := 'SELECT * FROM  Win32_VideoController';
WbemObjectSet := WbemServices.ExecQuery(QueryGPU);
if not VarIsNull(WbemObjectSet) then
begin
  NetworkAdapter := WbemObjectSet.ItemIndex(0);
  uuG :=  NetworkAdapter.PNPDeviceID;
end;

WbemObjectSet := WbemServices.ExecQuery(QueryGPU);

Upvotes: 0

Views: 243

Answers (1)

bahman jafari
bahman jafari

Reputation: 51

The problem has been resolved after removing Graphic driver. I think graphic driver didn't allow to run query.

Upvotes: 0

Related Questions