Discussion :

[kassimsarr]

Bonjour a tous,

Je developpe actuellement un service non-interactive qui execute un programme externe avec la fonction 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
function RunInteractive(prog_filename: String; sessionID: Cardinal): boolean;
var hToken: THandle;
  si: _STARTUPINFOA;
  pi: _PROCESS_INFORMATION;
begin
  ZeroMemory(@si, SizeOf(si));
  si.cb := SizeOf(si);
  SI.lpDesktop := nil;
  if WTSQueryUserToken(sessionID, hToken)
  then  begin
          if CreateProcessAsUser(hToken, nil, PChar(prog_filename), nil, nil, False, 0, nil, PChar(ExtractFilePath(prog_filename)), si, pi)
          then  result := true
          else result := false;
        end
  else  Begin
          result := false;
        End;
  CloseHandle(hToken);
end;

Prenons le cas ou il y a 2 utilsateurs dans le domaine (domain\user1 et domain\user2) :
1. pour etre clean, j'installe le service et redemarre le systeme
2. si j'ouvre la session avec user1: le service lance bien le programme externe dont la form s'affiche a l'ecran
3.je ferme cette session et j'ouvre la session avec user2: le service lance bien le programme externe

Ca c'etait le cas le plus commun et si je le repete x fois, il n'ya jamais de probleme.

Maintenant prenons le cas suivant:
1. si j'ouvre la session avec le user1: le service lance bien le programme externe
2.Au lieu de fermer la session cette fois ci je change d'utilisateur avec le user2: le service lance bien le programme externe mais cette fois ci la form par défaut ne s'affiche pas et un message d'erreur apparait : Systeme Error Code 5, Accès refusé.

Il semblerait donc que quelque chose ne vas pas mais j'aimerais savoir quoi et je ne vois pas du tout. Merci d'avance pour vos reponses

[chaplin]

Quel OS ? Il me semble que pour XP, la premier utilisateur connecté rentre dans une session 0, où le service windows et la forme coexistent dans la même session. Si un deuxième utilisateur vient à se connecter, il est dans une session 1 alors que le service windows lance une application dans la session 0.

Si tu inverses l'ordre des users, logiquement tu devrais rencontré le même problème.

[kassimsarr]

1.la les tests s'effectue sous Seven.
2.que les users ont des droits differents ou pas , le probleme reste le meme.

Pour repondre a votre question, en fait chaque user lance le program externe en prenant en compte l'iD de session active grace a la focntion WTSQueryUserToken(sessionID, hToken), htoken etant la variable de sortie qui est utilisée ensuite par createProcessAsUser.
La variable SessionID passee en parametre est quand a elle est correcte (je l'ai verifiee en la journalisant)

[Andnotor]

Je regarderais plutôt au niveau de l'application elle-même. N'ouvres-tu pas un fichier en exclusif (donc verrouillé par la première instance) ?

[Ph. B.]

Bonjour,

Pour avoir travaillé sur le sujet (un lanceur d'applications avec ce genre de commandes) et compte tenu de l'erreur rencontrée, je "plussoie" aux propos d'Andnotor et je regarderais plutôt du coté de l'application appelée : ne cherche t-elle pas à utiliser une ressource (fichier, etc) commune et/ou unique de manière exclusive ?

--
Philippe.

[kassimsarr]

En effet, vous avez tous le 2 raisons car j'ai résolu le probleme en modifiant le code de l'application appelée. A ma grande suprise, il s'agissait d'un fonction de la librairie jcl qui causait le probleme (uniquement dans le cas d'un "fast user swithing")!!! La fonction se nomme GetInteractiveUsername et se trouve dans le fichier JclSecurity.pas. J'avais besoin de cette fonction pour recuperer a la fois le domaine et le login de l'utilisateur qui a ouvert la session windows. J'ai contourné le pb en récupérant ces valeurs grace aux variables d'environnements du système.