Problème WTSQuerySessionInformation en 32 Bits

Version imprimable

Bonjour

lorsque que je cherche à lister les session sur un serveur TSE
via le code suivant en 64 bit cela marche bien mais en 32 bit WTSQuerySessionInformation me renvoie rien
et getlasterror me revoie ERROR_INVALID_PARAMETER
Voici la fonction pour avoir le nom du user ou son pc c'est là qu'en 32 çà marche pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
function getStrInfo(fhserveur : cardinal;infoClass : _WTS_INFO_CLASS ; id : cardinal):string;
var
  ptemp : pointer ;
  inttemp : cardinal;
begin
  ptemp := nil;
  result := '';
  if WTSQuerySessionInformation(fhserveur,id ,infoClass,ptemp,inttemp) then
  try
    result := pchar(ptemp);
  finally
    WTSFreeMemory(ptemp);
  end;
end;

Voici un bout de la procedure qui liste les sessions
cette partie fonctionne bien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
     fhserveur := WTSOpenServer(pchar(strNomServeur));
    booOk := WTSEnumerateSessions(fhserveur,0,1,ppsession,nbSession );
    if booOk and (nbsession > 0 )then
    begin
      fbooServeurOK := true;
      for indexSession := 0 to nbSession-1 do
      begin
        Session := PWTS_SESSION_INFO(integer(ppsession)+indexsession * sizeof(wts_session_info))^;
        strTemp := lowercase(session.pWinStationName);
        if (pos('ica-',strtemp)<> 0)and(pos('#',strtemp)<>0) then inc(fnbICA ,1);
        if pos('rdp-tcp#',strtemp)<> 0 then inc(fnbRDP ,1);
        if strTemp = 'ica-tcp' then fbooListenICA := session.State = WTSListen;
        if strTemp = 'rdp-tcp' then fbooListenRDP := session.State = WTSListen;
        ttemp := tfbSession.Create ;
        ttemp.fstrSession := strTemp;
        ttemp.fintID := session.SessionId;
        ttemp.fsrtetat := sessionstatetostr(Session.State);
        ttemp.fstrUtilistauer := getStrInfo(fhserveur,WTSUserName,Session.SessionId);
        ttemp.fstrClient := getStrInfo(fhserveur,WTSClientName,Session.SessionId);
        add(ttemp);
      end;
    end;
    WTSFreeMemory (ppsession );

cela fait un moment que je galère avec cette partie

12/01/2017, 14h58
ShaiLeTroll

à quel endroit tu mets le getlasterror ?

le WTSFreeMemory, je le mettrais dans le begin endde if booOk and (nbsession > 0 )then.
Pense que le 32 Bits c'est émulé, c'est assez isolé, il me semble normal qu'un processus 32bits ne voit pas ce qui se passe en 64Bits
12/01/2017, 15h08
fbalien

bonjour

juste apres

Code:

if WTSQuerySessionInformation(fhserveur,id ,infoClass,ptemp,inttemp) then

remplace ton arithmétique de pointeur par ceci

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
var
  ppsession: PWTS_SESSION_INFO;
  ppsessionCurr: PWTS_SESSION_INFO;
...
begin
    fhserveur := WTSOpenServer(pchar(strNomServeur));
    booOk := WTSEnumerateSessions(fhserveur,0,1,ppsession,nbSession );
    if booOk and (nbsession > 0 )then
    begin
      fbooServeurOK := true;
      ppsessionCurr := ppsession;
 
      for indexSession := 0 to nbSession-1 do
      begin
        // Session := PWTS_SESSION_INFO(integer(ppsession)+indexsession * sizeof(wts_session_info))^; // devient la ligne du dessous
        Session := ppsessionCurr^;
        ... 
 
        add(ttemp);
 
        Inc(ppsessionCurr); // il va tout seul gérer le décalage nécessaire
      end;
    end;
    WTSFreeMemory (ppsession );

12/01/2017, 16h00
fbalien

Bonjour

j'ai modifié comme tu me l'a indiqué
mais toujours le même souci en compile 32Bits

Bonjour

j'ai repris mes investigations
J’obtiens l'erreur Paramètre incorrect en mode debug 32Bits mais pas en mode Release 32Bits O_o
en compile 64 bits cela marche dans les deux modes
j'ai adapté ma fonctions qui pose problème pour m'afficher le syserromessage si WTSQuerySessionInformation NOK
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 function tfbLstSession.getStrInfo(fhserveur : cardinal;infoClass : _WTS_INFO_CLASS ;id : cardinal):string; var ptemp : pointer ; inttemp : dword; begin ptemp := nil; result := ''; if WTSQuerySessionInformation(fhserveur,id ,infoClass,ptemp,inttemp) then begin result := '[' + pchar(ptemp)+ ']'; WTSFreeMemory(ptemp); end else result := '[' + syserrormessage(GetLastError)+ ']'; end;