Wie Remote Update eine Windows-Service?

[Ulrich Berger]

Also wir haben das bei uns ganz pragmatisch gelöst... es wurde eine Freigabe eingerichtet, so dass man aus dem Netz auf den Installationsordner des Services zugreifen und die Exe austauschen kann... außerdem läuft auf dem Server ein vnc Server, um sich mit dem Server verbinden und den Dienst vor dem Austausch stoppen zu können.

Gruß Uli

[sh17]

Zitat von Ulrich Berger:

Also wir haben das bei uns ganz pragmatisch gelöst... es wurde eine Freigabe eingerichtet, so dass man aus dem Netz auf den Installationsordner des Services zugreifen und die Exe austauschen kann... außerdem läuft auf dem Server ein vnc Server, um sich mit dem Server verbinden und den Dienst vor dem Austausch stoppen zu können.

Leider zu pragmatisch, zuviel Handarbeit.

SC wäre eine Alternative, muss ich mal schauen, ob das Remote klappt. Müssen dazu auf dem Server irgend welche Rechte gesetzt werden, das man sowas darf?

[mkinzler]

Der Benutzer muss Adminrechte auf dem remoten Server besitzen

[nahpets]

Ich gehe mal davon aus, dass der Nutzer, der SC ausführt, das Recht haben muss, auf dem Server Dienste zu starten und zu beenden und Schreibrechte für das Verzeichnis benötigt, in dem die Service.exe liegt.

[sh17]

Hmm, ich glaub, das ist auch schon wieder nix. Ich glaub nicht, dass das Admin-Passwort immer verfügbar ist. Bleibt wohl nur ein Update-Dienst.

Oder kann ein Dienst ein Windows Task anwerfen?

[nytaiceman]

Der Ansatz mit einem zweiten Dienst zu arbeiten habe ich auch schon verfolgt.

UpdateService mit einem Timer versehen. Der Timer prüft regelmässig ob eine aktuellere Version des Arbeitsdienstes rumliegt und führt wenn nötig eine Aktualisierung durch:

Delphi-Quellcode:

// === Timer - UpdateCheck =====================================================
procedure TnwUpdateService.OnUpdateCheckTimer(Sender: TObject);
var
 ServiceManager: TServiceManager;
 oldName, NewName, UpdFile : String;
 tts : Integer;
begin
 newname := GetScriptDir +'\n_Server.old';
 oldname := GetScriptDir +'\n_Server.exe';
 updfile := GetScriptDir +'\n_DataServer\n_Server.exe';

// WriteLog('Updatechecker','Check on every 30s');

// = Check for local update
 if Fileexists(updfile) then
  begin
   WriteLog('Updatechecker','Found Update for "n_DataServer.exe"');
   ServiceManager := TServiceManager.Create;
   ServiceManager.Connect;
   ServiceManager.OpenServiceConnection('nwDataServer');

   with ServiceManager do begin
    // Stoping Service if it is running

     if ServiceRunning then
     begin WriteLog('Updatechecker','Trying to stop "n_DataServer.exe"'); StopService; end else WriteLog('Updatechecker','Is not running: "n_DataServer.exe"');

     // = Check repeatetly
      tts := 0;
      repeat
       tts := tts +1;
       sleep(1000)
      until (tts > 30) OR (Servicemanager.ServiceStopped);

     If Servicemanager.ServiceStopped then WriteLog('Updatechecker','was or is stopped: "n_DataServer.exe"') else
      begin
       WriteLog('Updatechecker','[ERROR] Could not stop "n_DataServer.exe"');
       exit;
      end;

    // = Replace current server.exe with the new one
     WriteLog('Updatechecker','Current Version was: ' +fGetFileVersion(oldname));
     WriteLog('Updatechecker','New Version is     : ' +fGetFileVersion(updfile));

    // = Rename current server.exe to server.old
     if Fileexists(newname) then DeleteFile(newname);
     sleep(100);
     newName := ChangeFileExt(oldName, '.old');
     sleep(100);
     RenameFile(oldName, newName);
     sleep(100);

    // = Move update.exe to currentdir
     MoveFile(PChar(updfile),PChar(oldname));
     sleep(100);

    // = Start Service
     if ServiceStopped then begin
      WriteLog('Updatechecker','Trying to start "n_DataServer.exe"');
      StartService;
     end;

     sleep(100);

     // = Check repeatetly
      tts := 0;
      repeat
       tts := tts +1;
       sleep(1000)
      until (tts > 30) OR (Servicemanager.ServiceRunning);

     If Servicemanager.ServiceRunning then WriteLog('Updatechecker','Is running: "n_DataServer.exe"') else
      begin
       WriteLog('Updatechecker','[ERROR] Could not start "n_DataServer.exe"');
       exit;
      end;

   end;

   // = Free the instance
   FreeAndNil(ServiceManager);

  end;

end;

Im Anhang die ServiceManager.pas welche mal irgendwo gefunden habe.

Bitte nicht mit Prügel aufwarten, mein Code hat sicher Optimierungspotential...

[mkinzler]

Wobei dieses Vorgehen doch grundsätzlich ein hohes Sicherheitsrisiko birgt.

[nahpets]

Warum den Admin nehmen?

Ich würd' auf dem Server einen Benutzer anlegen (lassen), der genau die Aufgabe hat, den Dienst zu starten und zu stoppen und Lese- und Schreibrechte im Verzeichnis der Service.exe hat.

Mit diesem User wird dann der Austausch des Services vorgenommen. Dafür braucht man nicht den Admin zu bemühen.

Alternative:

Wenn im Service die Version seiner selbst bekannt ist, so könnte der Service doch zu einem definierten Zeitpunkt (täglich 3:00 Uhr oder sowas) an einer definierten Stelle nachschauen, ob es eine neue Version seiner Selbst gibt ('ne Textdatei oder sowas).

Steht dort, dass es eine neue Version gibt, so startet er selbst per ShellExecute die oben vorgeschlagene Batchdatei.

Die beendet ihn dann, kopiert die neue Service.exe und starte den Dienst dann.

andere Alternative:

Der Service prüft, ob an einer bestimmten Stelle eine Datei liegt, die den gleichen Dateinamen hat, wie erst selbst, dann wird die Batchdatei gestartet, zusätzlich löscht die Batchdatei nach dem Kopieren noch die "Quelldatei".

Das könnte dann etwa so aussehen:

Code:

sc stop "service name"
copy \\Quellrechner\Pfad\Service.exe Service.exe
del \\Quellrechner\Pfad\Service.exe
sc start "service name"

\\Quellrechner\Pfad\Service.exe könnte natürlich auch 'ne für den Service verfügbare Freigabe sein.

Oder wenn es auf dem Server schon 'ne Freigabe gibt, dann wird die neue Service.exe dort abgelegt.

[sh17]

@nahpets ein Service darf Prozesse starten?

[nahpets]

Prinzipell spricht da erstmal nix gegen, ist doch eigentlich auch nur 'ne normale Anwendung.

Der Nutzer, mit dem der Service sich anmeldet, muss halt die entsprechenden Rechte haben.