auf WMI-Verfügbarkeit prüfen

[Mazel]

OK, ich habe das ganze jetzt so gelöst:

Delphi-Quellcode:

function TMain.WMI: Boolean;
var
 Locator        : ISWbemLocator;
 Services       : ISWbemServices;

begin
 Result := False;
 try
  // Verbindung aufbauen
  Locator := CoSWbemLocator.Create;
  Result := True;
 except
  Result := False;
 end;
end;

Gruß
Mazel