Nur der Vollständigkeit halber:
Du musst Folgendes noch definieren:
Delphi-Quellcode:
type
NET_API_STATUS = Integer;
function NetUserChangePassword(domainname, username, oldpassword,
newpassword: LPCWSTR): NET_API_STATUS;
stdcall; external 'netapi32.dll';
type
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;
lpUSER_INFO_1 = ^USER_INFO_1;
function NetUserEnum(ServerName: PWideChar;
Level,
Filter: DWORD;
var Buffer: Pointer;
PrefMaxLen: DWORD;
var EntriesRead,
TotalEntries,
ResumeHandle: DWORD): Longword; stdcall; external 'netapi32.dll';
function NetApiBufferFree(pBuffer: PByte): Longint; stdcall; external
'netapi32.dll';
Hatte ich vergessen
MfG Jonas