Discussion :

[lgirard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Ph. B.]

Que dit GetLastError ?

[lgirard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Whiler]

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é...

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....

[Andnotor]

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"', ...)

[Whiler]

oui, mais...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é...

[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...

[Whiler]

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

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

Le shellexecute avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[lgirard]

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

La solution trouvée réside 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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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