Discussion :

[WolfRAM]

Bonjour,

Je cherche à mettre dans un listbox tout les usagers qui sont présentement loggé en session sur un serveur mais ce à partir d'un service qui est chargé par un compte administrateur quelconque.

J'ai essayé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function GetCurrentUserName : string;
const
  cnMaxUserNameLen = 254;
var
  sUserName : string;
  dwUserNameLen : DWord;
begin
  dwUserNameLen := cnMaxUserNameLen-1;
  SetLength(sUserName, cnMaxUserNameLen);
  GetUserName(PChar(sUserName), dwUserNameLen);
  SetLength(sUserName, dwUserNameLen);
  Result := sUserName;
end;

mais ça ne me donne que l'usager loggé qui appelle la procèdure, moi je cherche tout ceux qui sont en session... quelqu'un à une petite idée à me suggèrer???

à oui, j'ai aussi tenté mon coup avec

Code :

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

    NetApiStatus := NetUserEnum('\\NT-Domain', 1, 0, lpBuffer, 0, EntiesRead, TotalEntries, ResumeHandle);

Mais ça ne me renvois que les comptes locaux et aucune indication sur leur états non-plus.

Merci à l'avance...

[WolfRAM]

Peut-être n'ai-je pas été assez clair?

Enfin, j'utilise Delphi 6, sous Win2k, et j'essai d'obtenir la liste de tout les usagers présentement en session sur un serveur donné, soit qu'ils sont loggé en Terminal Server, RAS, session locale ou encore qu'ils ont un fichier ouvert sur ce serveur...

Si vous avez une petite idée, ne vous gênez surtout pas...

[philnext]

essaye toujours : http://www.swissdelphicenter.ch/torr...ode.php?id=966

[Laurent Dardenne]

Salut regarde si c'est possible avec WMI et de la classe Win32_SessionConnection
http://msdn2.microsoft.com/en-us/library/aa393282.aspx

Sinon la classe Win32_ComputerSystem
En VBScript :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
Wscript.Echo "User Name = " & objComputer.UserName _
& VBNewLine & "Computer Name = " & objComputer.Name
WScript.Echo objComputer.UserName
Next

Sous PowerShell :

get-wmiobject Win32_ComputerSystem

C'est à vérifier car je n'ai pas trop testé si cela te renvoi les bonnes infos.