Richiesta utenti loggati

[xinyiman]

Qualcuno di voi sa come poter capire quali utenti sono loggati su una macchina locale (sia essa windows che linux)? E sapete se esiste un protocollo per avere la stessa informazione su macchine remote?

[Microges2000]

Per l'utente corrente (nome, gruppo ed altre informazioni varie) le funzioni si trovano nella unit users.pp situata nella cartella users\src dei sorgenti di freepascal.

Se, poi, vuoi sapere gli utenti loggati attraverso un determinato programma (es controllo remoto) bisogna lavorare direttamente sul programma. Mi spiego:

Quando io (ip 192.168.10.18) mi collego ad un server con un determinato programma scambio con esso e solo con esso il mio ip magari avallato da altre informazioni (nome, password,...) ed è il programma stesso che le deve gestire non il sistema operativo.

Se poi vogliamo gli user loggati al sistema questo è valido solamente sotto linux o windows server e le funzioni che cerchi dovrebbero essere nella unit users.pp ma non ho info in merito.

[xinyiman]

grazie mille 

[xinyiman]

Non so, a giudicare mi sembra sia solo per linux! Io cercavo una soluzione cross-platform.

[Microges2000]

No no è cross platform. Le uniche specializzate per Linux sono GetUserShadowData, sgetspent e getspnam che sinceramente non so proprio che cosa fanno

[xinyiman]

Se compilo uno degli esempi mi restituisce

users.pp(5,6) Fatal: Can't find unit UnixType used by users

Mi sembra che UnixType non sia cross-platform.

[Microges2000]

Hai ragione (mea culpa) sotto windows non funzionano in quanto ptypes.inc che è incluso da UixType vale solo per deos, darwin, freepsd, haiku, linux, netbsd e solaris.
Comunque puoi risolvere con un bel $IFDEF WIN32 e, nella sezione windows usi le Api del sistema.

Ps. in allegato troverai una unit per delphi che include un po' di funzioni non documentate o poco documentate del windows che ho raccolto in questi anni.
Per l'utente guarda systeminformation

[xinyiman]

Molto interessante, ma la procedura che mi hai indicato sembra che funzioni per ritornare l'utente con cui sono collegato. Io invece voglio sapere quale utente è collegato alla mia macchina e con quale privilegi, ad esempio se è administrator e possibilmente sapere anche l'ora a cui si è collegato.

[Microges2000]

Ho capito.
Dunque, sempre per Delphi, ci sono:

(conoscere la lista degli utenti in un dominio)
http://www.torry.net/samples/samples/lan/ragetusers.zip

(Recupera tutti i nomi di rete dell'utente dal dominio specificato)
http://www.torry.net/vcl/lan/msnetworks/netusers.zip

Spero che ti siano di aiuto ma tieni presente che è una faccenda abbastanza ostica

[xinyiman]

Grazie mille ora do un occhiata

[xinyiman]

Sto facendo alcune prove ma non mi trova le due unit

lmaccess, lmglobal 

nell'esempio

(conoscere la lista degli utenti in un dominio)
http://www.torry.net/samples/samples/lan/ragetusers.zip

[Microges2000]

Trovate!

vai qui' http://svn2.assembla.com/svn/silvestrin/delphi7/trunk/repositorio/

[xinyiman]

Grande 

Ora però su questo codice

Codice: [Seleziona]

function NetApiBufferAllocate;          external 'NETAPI32.DLL';
function NetApiBufferFree;              external 'NETAPI32.dLL';
function NetApiBufferReallocate;        external 'NETAPI32.DLL';
function NetApiBufferSize;              external 'NETAPI32.DLL';        

Mi dice:
lmglobal.pas(658,30) Fatal: Syntax error, ":" expected but ";" found

Ho provato a sostituire
function NetApiBufferAllocate;
con
function NetApiBufferAllocate:
ma dice

lmglobal.pas(658,50) Error: Identifier not found "external"

[Microges2000]

devono essere dichiarate cosi':

Codice: [Seleziona]

Const 
   NERR_Success = 0; 

function NetApiBufferAllocate(ByteCount: DWORD; var Buffer: Pointer): DWORD; 
                                           stdcall; external 'netapi32.dll'; 
function NetGetDCName(servername: LPCWSTR; domainname: LPCWSTR; 
  bufptr: Pointer): DWORD; stdcall; external 'netapi32.dll'; 
function NetApiBufferFree (Buffer: Pointer): DWORD ; stdcall; 
                                     external 'netapi32.dll'; 
Function NetWkstaGetInfo 
        (ServerName : LPWSTR; 
         Level      : DWORD; 
         BufPtr     : Pointer) : Longint; Stdcall; 
                external 'netapi32.dll' Name 'NetWkstaGetInfo'; 

function NetUserEnum(servername: LPCWSTR; level: DWORD; filter: DWORD; 
  var bufptr: Pointer; prefmaxlen: DWORD; var entriesread: DWORD; 
  var totalentries: DWORD; resume_handle: PDWORD): DWORD; stdcall; 
                                          external 'netapi32.dll'; 

comunque se vai qui' c'e' un esempio bello e pronto http://www.delphi-central.com/tutorials/delphi_user_list.aspx

[xinyiman]

Ok mi sono buttato sull'esempio che mi hai detto ma GetNetParam non riesco a trovarlo. In quale unit è?!