Unit UserList

Classes

TUserList -

Functions

NetServerEnum -
NetUserEnum -
NetUserGetInfo -
NetWkstaGetInfo -
Register -

Types

IUserList
PIUserList
PSERVER_INFO_100
PUSER_INFO_1
PUSER_INFO_10
PWKSTA_INFO_100
SERVER_INFO_100
USER_INFO_1
USER_INFO_10
WKSTA_INFO_100

Constants

Variables


Functions


function NetServerEnum( ServerName : LPWSTR; Level : DWORD; var Bufptr : PBYTE; prefmaxlen : DWORD; var EntriesRead : DWORD; var TotalEntries : DWORD; ServerType : DWORD; Domain : LPWSTR; var ResumeHandle : DWORD ) : DWORD;


function NetUserEnum( ServerName : LPWSTR; Level : DWORD; Filter : DWORD; var Bufptr : PByte; PrefMaxLen : DWORD; var EntriesRead : DWORD; var TotalEntries : DWORD; var ResumeHandle : DWORD ) : DWORD;


function NetUserGetInfo( ServerName : LPWSTR; UserName : LPWSTR; Level : DWORD; var Bufptr : PBYTE ) : DWORD;


function NetWkstaGetInfo( ServerName : LPWSTR; Level : DWORD; var Bufptr : PBYTE ) : DWORD;


procedure Register;


Types


IUserList = record
UserName : String;
Comment : String;
UserComment : String;
FullName : String;
end;

PIUserList = ^IUserList

PSERVER_INFO_100 = ^SERVER_INFO_100

PUSER_INFO_1 = ^USER_INFO_1

PUSER_INFO_10 = ^USER_INFO_10

PWKSTA_INFO_100 = ^WKSTA_INFO_100

SERVER_INFO_100 = record
sv101_platform_id : DWORD;
sv101_name : LPWSTR;
end;

USER_INFO_1 = record
usri1_name : LPWSTR;
usri1_password : LPWSTR;
usri1_password_age : DWORD;
usri1_priv : DWORD;
usri1_home_dir : LPWSTR;
usri1_comment : LPWSTR;
usri1_flags : DWORD;
usri1_script_path : LPWSTR;
end;

USER_INFO_10 = record
usri10_name : LPWSTR;
usri10_comment : LPWSTR;
usri10_usr_comment : LPWSTR;
usri10_full_name : LPWSTR;
end;

WKSTA_INFO_100 = record
wksi100_platform_id : DWORD;
wksi100_computername : LPWSTR;
wksi100_langroup : LPWSTR;
wksi100_ver_major : DWORD;
wksi100_ver_minor : DWORD;
end;

Constants


Variables