Tuer un service à partir d'un autre service

Version imprimable

En environnement Windows 7 64b.

Je dispose d'un service, lancé en mode administrateur. Ce dernier doit stopper :
1/ des applications exécutées en mode administrateur,
2/ des services exécutés en mode administrateur.

Pour le 1/, cela fonctionne.

mais pour le 2/, je ne comprends pas ce qui se passe.

Voici le code utilisé pour stopper un service :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 function StopperService(NomService: string): DWORD; var hsc: SC_HANDLE; hSchSvc: SC_HANDLE; SvcStatus: TServiceStatus; begin hsc := OpenSCManager(nil, nil, STANDARD_RIGHTS_READ); if (hsc = 0) then Result := GetLastError else begin hSchSvc := OpenService(hsc, PChar(NomService), SERVICE_ALL_ACCESS); CloseServiceHandle(hsc); if (hSchSvc = 0) then Result := GetLastError else begin // Stoppe le service if ControlService(hSchSvc, SERVICE_CONTROL_STOP, SvcStatus) then begin CloseServiceHandle(hSchSvc); Result := ERROR_SUCCESS; end else Result := GetLastError end; end; end;
Je précise que ce code fonctionne lorsqu'il est utilisé dans un programme, mais pas à partir d'un autre service...

Si quelqu'un pouvait éclaircir ma lanterne, je pense à une histoire de droits (fonctionne bien sous XP par exemple), mais je ne vois pas....

Par avance merci à vous tous.

18/09/2011, 23h06
Ph. B.

Que dit GetLastError ?

On passe bien dans les lignes 24 et 25, et getLastError me renvoi ERROR_SUCCESS.

On pourrait ainsi croire que le service estbien arrêté, mais non, il tourne toujours...... Peut-être parce que le dit service était en train d'effectuer une tâche et qu'il n'a pas bien reçu l'ordre de s'arrêter ?

j'ai aussi essayer de tuer le processus (plutôt que d'arrêter le service), pas la procédure suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
function TuerProcessus(NomProcessus: string;IDProcessus : Cardinal = 0;TypeProcessus : Byte = 0): integer;
var
  bNext            : boolean;
  bProcessusTrouve : boolean;
  hSnapshotHandle  : THandle;
  pProcessEntry32  : TProcessEntry32;
  hProcessHandle   : THandle;
begin
  Result := -1;
 
  // Obtient la liste des processus
  hSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapshotHandle <> THandle(-1)) then
  begin
    // Cherche le processus en paramètre
    try
      pProcessEntry32.dwSize := SizeOf(pProcessEntry32);
      bNext := Process32First(hSnapshotHandle, pProcessEntry32);
      while bNext do
      begin
        case TypeProcessus of
          // Par ID processus Windows
          1 : begin
                // Recherche si l'identifiant est fourni
                if IDProcessus > 0 // Recherche sur l'ID et le nom
                then bProcessusTrouve := (IDProcessus = pProcessEntry32.th32ProcessID) and
                                         ((UpperCase(ExtractFileName(pProcessEntry32.szExeFile)) = UpperCase(NomProcessus))  or
                                          (UpperCase(pProcessEntry32.szExeFile)                  = UpperCase(NomProcessus)))
                else bProcessusTrouve := ((UpperCase(ExtractFileName(pProcessEntry32.szExeFile)) = UpperCase(NomProcessus))  or
                                          (UpperCase(pProcessEntry32.szExeFile)                  = UpperCase(NomProcessus)));
              end
          // par défaut sinon sur le nom du processus
          else
            begin
              bProcessusTrouve := ((UpperCase(ExtractFileName(pProcessEntry32.szExeFile)) = UpperCase(NomProcessus))  or
                                   (UpperCase(pProcessEntry32.szExeFile)                  = UpperCase(NomProcessus)));
            end;
        end;
        if bProcessusTrouve then
        begin
          // Processus trouvé, essaye de le tuer
          Result := 0;  // Processus trouvé, mais pas encore tué
          hProcessHandle := OpenProcess(SERVICE_ALL_ACCESS, False, pProcessEntry32.th32ProcessID);
          if (hProcessHandle <> 0) then
          begin
            try
              Result := Integer(TerminateProcess(hProcessHandle, 0));
            finally
              CloseHandle(hProcessHandle);
            end;
          end;
          break;   // Si le processus est trouvé, on sort de la boucle quelque soit le résultat de fermeture du processus
        end;
       bNext := Process32Next(hSnapshotHandle, pProcessEntry32);
      end;
    finally
      CloseHandle(hSnapshotHandle);
    end;
  end;
end;

résultat pas plus encourageant :cry:

19/09/2011, 11h00
Whiler

Citation:

Envoyé par lgirard

Je précise que ce code fonctionne lorsqu'il est utilisé dans un programme, mais pas à partir d'un autre service...

Il fonctionne si j'exécute mon application en tant qu'administrateur... sinon, le service n'est pas arrêté...

Citation:

Envoyé par lgirard

Si quelqu'un pouvait éclaircir ma lanterne, je pense à une histoire de droits (fonctionne bien sous XP par exemple), mais je ne vois pas....

Je ne sais pas comment on exécute un service en tant qu'administrateur...
(pour avoir les droits qui vont bien...)

Éventuellement, s'il n'y a pas besoin que ce soit un service, il est possible de planifier une tâche Windows pour que celle-ci s'exécute en tant qu'administrateur... ce n'est pas la réponse à la question, mais un éventuel workaround en attendant mieux....
19/09/2011, 12h25
Andnotor

Citation:

Envoyé par Whiler

Je ne sais pas comment on exécute un service en tant qu'administrateur...

Un service tourne sous le compte SYSTEM. On ne peut pas espérer plus de droits ;)

Sinon, j'essayerais un simple ShellExecute(..., 'net.exe', 'stop "Ton Service"', ...)

oui, mais... :aie:
Code:

1 2 3 4 5 6 7 --------------------------- Error --------------------------- Unable to create process: L’opération demandée nécessite une élévation. --------------------------- OK ---------------------------
Pour obtenir ça, j'ai fait le test suivant :
Un service qui appelle une appli console où j'ai modifié le manifest pour demander une élévation...
Si je lance l'appli console à la main, j'ai un prompt pour l'élévation que j'accepte, et le service s'arrête (via le shellexecute ou la fonction StopperService)...

Si le service appelle mon appli console... l'élévation n'a pas lieu.. et donc, l'autre service n'est pas arrêté...

19/09/2011, 14h44
Andnotor

Ton test n'est pas de service à service mais passe par une application desktop ;)
Je doute fort que l'UAC ait une quelconque influence sur la session 0. Sinon aucun service ne fonctionnerait convenablement...
19/09/2011, 15h10
Whiler

Oups

Bon... ce que j'ai dit dans mon précédent message est faux... :oops:

et tu as bien sur raison sur tous les points...:ccool:

Le shellexecute avec

Code:

net stop

fonctionne nickel.
et mon élévation ne pose aucun pb !

(mes précédents tests étaient pourris... j'avais les méthodes start et execute, mais j'avais juste oublié de les câbler sur le service.. donc, forcément, il se passait pas grand chose:oops:)
20/09/2011, 07h57
lgirard

Merci à tous pour votre participation à cette réflexion.

La solution trouvée réside :D dans le paramétrage d'exécution du service A, celui qui doit 'tuer' le service B.
En effet, il faut que le service A soit lancé en mode 'standard' (dans les propriétés du service, onglet 'connexion', ouvrir une session en tant que 'compte système local'.
Dans mon exemple, pour d'autre raisons, il était nécessaire que le service B soit quant à lui lancé avec le compte administrateur.

Mes tests m'ont également montré que la plateforme ne change rien dans ce paramétrage: XP ou W7 il faut le même paramétrage pour chacun de ces 2 services.

Encore une fois, merci à tous pour vos posts. :ccool:
20/09/2011, 13h54
ShaiLeTroll

Pour la configuration avancée, il y a aussi sc.exe
Je m'en suis servi pour affecter un compte utilisateur en ligne de commande sans passer par les écrans de services.msc

Code:

sc.exe config obj=... password=...

Si tu es l'auteur des DEUX services, rien ne t'empeche un échange de message interne, et que la cible se termine d'elle-même à la reception du message, cela peut t'éviter les problèmes de droits