WMI y errores que cuelgan toda la aplicación

[Neftali [Germán.Estévez]]

Si lo pruebas en local, verás que es fácil obtener un error de tipo EOleException si el servicio no está disponible. Incluso el mensaje que obtienes te lo deja claro.
Baja el servicio desde la administración de servicios y luego ponlo deshabilitado, para evitar que se arranque automáticamente cuando hagas la petición (ya que por defecto tiene macado araque automático.

Ten en cuenta que al "bajar" el servicio, es posible que se paren otros que dependen de él y que luego tendrás que arrancar manualmente (o reiniciar la máquina para que se vuelvan a arrancar automáticamente).

Si pruebas con un código como este:

Código Delphi [-]
uses
  SysUtils, ActiveX, ComObj, Variants, VCL.Forms, WinAPI.Windows, VCL.Dialogs;
...    


var
  FSWbemLocator : OLEVariant;
  FWMIService   : OLEVariant;
begin  
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  try
    FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  except
    on E:exception do begin

      MessageDlg('Error, no se puede conectar al servicio de wmi. ' + sLineBreak +
                 '(' + E.ClassName + ') ' + E.Message,
                 mtError, [mbOK], 0);
      Exit;
    end;
  end;
...

Verás que al ejecutarlo con el servicio parado (y deshabilitado) te genera el siguiente error: