WMI innerhalb eines Dienstes

[mkinzler]

Hallo,

ich habe ein Programm geschrieben, welches auf Änderungen der Laufwerke reagiert. Nun habe ich das Programm in einen Dienst
verpackt. Der Dienst wird allerdings nach kurzer Zeit beendet.

Das Problem liegt in der Zeile:

    FServices := FLocator.ConnectServer('.', 'root\cimv2', '', '', '', '', wbemConnectFlagUseMaxWait, nil); Hat jemand Erfahrung mit WMI und kann mir bei meinen Problem helfen?

Ich konnte das Problem weiter eingrenzen:
Dieser Code stammt aus der Wrapper-Unit WbemScripting_TLB.pas

Delphi-Quellcode:

procedure TSWbemLocator.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer; <---- Hier wird der Fehler ausgelöst
    Fintf:= punk as ISWbemLocator;
  end;
end;

Der Fehler ist ein EOleSysError mit der Meldung 'CoInitialize wurde nicht aufgerufen'
as Problem liegt wohl am CoCreateInstance welches aus der ole32.dll geladen wird/soll. Hat ein Service kein Zugriff auf diese dll, oder liegt das Problem wo anders (z.B. {$APPTYPE CONSOLE} ).

Kann mir jemand weiterhelfen?
Markus.

[Luckie]

Dienste haben nur sehr eingeschränkte Netzwerkrechte, daran könnte es liegen.

Und ein Dienst als Konsole? Ein Dienst läuft auf einer anderen WindowsStation und somit auf einem anderen Desktop, den der interaktive Benutzer nicht sieht. Es gibt zwar interaktive Dienste, doch davon rät selbst Microsoft aus Sicherheitsgründen ab.

[NicoDE]

Zitat von mkinzler:

Der Fehler ist ein EOleSysError mit der Meldung 'CoInitialize wurde nicht aufgerufen'

Wie die Fehlermeldung bereits sagt, musst du vor dem Verwenden von COM CoInitialize aufrufen.