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