Kann man mit Delphi angemeldete User im Netzwerk ermitteln?

[Thomas Witzer]

Gibt es in Delphi eine Möglichkeit, angemeldete User und deren aktuelle Workstation, ohne Administrator-Rechte, zu ermitteln?

mfg

Thomas

[Peter Reisinger]

versuche doch folgendes:
var
p : pchar;
dw : dword;
begin
p:=strAlloc(256);
dw:=250;
getusername(p,dw);
LUser.Caption:=p;
strdispose(p);
end;
mfg Pete

[Gast_1]

Es waren doch die User gemeint, und nicht man selbst !<p>
Mich würde es auch interessieren, da man dann einfach die neu eingeloggten User begrüßen könnte (wie z.B. in ICQ..)<p>
Schöne Grüße ..

[Bernhard Geyer]

Schau mal unter http://www.belcaf.com/ -> NTSet vorbei.
Evtl. hilft dir diese Komponentensammlung (Kapselt die Win32-API in den Bereich Benutzer-/Rechteverwaltung

[Assarbad]

mein LoggedOn2

http://www.erm.tu-cottbus.de/delphi/sources.html

MfG, Ass

[Assarbad]

<pre>NetUserGetInfo</pre>
The NetUserGetInfo function retrieves information about a particular user account on a server.

Security Requirements
Windows NT: No special group membership is required to successfully execute the NetUserGetInfo function. This is a change from LAN Manager, which required membership in the Administrators or Account Operators local group to call this function at information levels above 0 (except for the user's own account, which could use level 11).

Windows 2000 or later: If you call this function on a Windows 2000 domain controller that is running Active Directory, access is allowed or denied based on the access-control list (ACL) for the securable object. The default ACL permits all authenticated users and members of the "Pre-Windows 2000 compatible access" group to view the information. By default, the "Pre-Windows 2000 compatible access" group includes Everyone as a member. This enables anonymous access to the information if the system allows anonymous access.

If you call this function on a Windows 2000 member server or workstation, all authenticated users can view the information. Anonymous access is also permitted if the RestrictAnonymous policy setting allows anonymous access.

For more information about restricting anonymous access, see Security Requirements for the Network Management Functions.

<pre>NET_API_STATUS NetUserGetInfo(
LPCWSTR servername,
LPCWSTR username,
DWORD level,
LPBYTE *bufptr
);</pre>

LoggedOn2 funzt auch nur, wenn bestimmter REG-Pfad auf remote-rechner für dich freigegeben ist. (der performance counter key ;