Récupération ID session sur windows 10 sur machine distante avec Delphi

Version imprimable

06/10/2025, 07h15
julesclaude

Récupération ID session sur windows 10 sur machine distante avec Delphi

Bonjour à tous,
J'ai besoin de récupérer l'ID session d'une machine distante créé par Windows 10 pro à l'ouverture de session d'un utilisateur.
Pour le moment je passe par un shellexecute avec psexec.exe qui lance la commande QUERY SESSION sur la machine distante.
Est-il possible de récupérer cet ID session avec Delphi sans passe par un shellexecute et psexec ?
Cordialement
Merci

Citation:

Envoyé par julesclaude

Bonjour à tous,
J'ai besoin de récupérer l'ID session d'une machine distante créé par Windows 10 pro à l'ouverture de session d'un utilisateur.
Pour le moment je passe par un shellexecute avec psexec.exe qui lance la commande QUERY SESSION sur la machine distante.
Est-il possible de récupérer cet ID session avec Delphi sans passe par un shellexecute et psexec ?
Cordialement
Merci

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
program RemoteSessionInfo;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, ComObj, ActiveX, Variants;
 
procedure GetRemoteSessionIDs(const RemoteMachine: string);
var
  Locator, Services, Processes: OleVariant;
  EnumProc: IEnumVariant;
  ProcObj: OleVariant;
  Value: Cardinal;
  UserName, Domain: string;
begin
  CoInitialize(nil);
  try
    Locator := CreateOleObject('WbemScripting.SWbemLocator');
    Services := Locator.ConnectServer(RemoteMachine, 'root\cimv2', '', '', '', '', 0, nil);
 
    Processes := Services.ExecQuery('SELECT * FROM Win32_Process WHERE Name = "explorer.exe"');
    EnumProc := IEnumVariant(IUnknown(Processes._NewEnum));
 
    while EnumProc.Next(1, ProcObj, Value) = 0 do
    begin
      if VarType(ProcObj) = varDispatch then
      begin
        UserName := '';
        Domain := '';
        ProcObj.GetOwner(UserName, Domain);
 
        Writeln(Format('SessionId: %d - User: %s\%s',
          [Integer(ProcObj.Properties_.Item('SessionId').Value), Domain, UserName]));
      end;
    end;
  finally
    CoUninitialize;
  end;
end;
 
begin
  try
    Writeln('--- Récupération des sessions sur la machine distante ---');
    GetRemoteSessionIDs('NOM_DE_LA_MACHINE'); // Remplace par le nom ou IP de la machine distante
  except
    on E: Exception do
      Writeln('Erreur : ', E.Message);
  end;
  Readln;
end.

Par les fonctions terminal server.

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
uses Winapi.WTSApi32;
 
function GetRemoteSessionId(const aServer: string) :integer;
var
  SI: PWTS_SESSION_INFO;
  Count: cardinal;
begin
  const Server = WTSOpenServer(PChar(aServer));
  try
    if WTSEnumerateSessions(Server, 0, 1, SI, Count) then
    try
      for var i := 0 to Count -1 do
      begin
        if SI.State in [WTSActive, WTSDisconnected] then
          Exit(SI.SessionId);
 
        Inc(SI);
      end;
    finally
      WTSFreeMemory(SI);
    end;
 
  finally
    WTSCloseServer(Server);
  end;
 
  Result := -1;
end;

06/10/2025, 09h30
ShaiLeTroll

Je ne le connais que dans le cas d'un MSTSC : WTSQuerySessionInformation

Voir ce code utilitaire TSliteModuleTool.GetClientComputerOfRemoteSession