auf WMI-Verfügbarkeit prüfen

[Mazel]

Hallo,

ich hatte gedacht, auf WMI zu überprüfen sei einfach aber das ist es doch nicht. Ich habe jetzt folgenden Code probiert, das Problem was auftritt ist, das Windows 98 schon Probleme mit dem zu erzeugenden Locator hat:

Delphi-Quellcode:

{--[WMI]-----------------------------------------------------------------------}

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

begin
 Result := False;
 // Verbindung aufbauen
 Locator := CoSWbemLocator.Create;   // Fehler: "Klasse nicht registriert"
 // Verbindung zum Server herstellen
 Services := Locator.ConnectServer('.', 'root\CIMV2', '', '', '', '', 0, nil);
 if Assigned(Services) then Result := True;
end;

Wie kann ich den Fehler vermeiden und stattdessen ein für mich passendes Ergebnis ermitteln?

Gruß
Mazel