Ich habe jetzt etwas rumprobiert und habe das gefunden:
NetUserModalsGet und die Struktur dazu:
Delphi-Quellcode:
TUSER_MODALS_INFO_0 = record
usrmod0_min_passwd_len: DWORD;
usrmod0_max_passwd_age: DWORD;
usrmod0_min_passwd_age: DWORD;
usrmod0_force_logoff: DWORD;
usrmod0_password_hist_len: DWORD;
end;
PUser_Modals_Info_0 = ^TUser_Modals_Info_0;
Implementation:
Delphi-Quellcode:
function NetUserModalsGet(Servername: LPCWSTR; Level: DWORD; bufptr: Pointer): NET_API_STATUS; stdcall;
//...
procedure TForm1.Button1Click(Sender: TObject);
var
UserModalsInfo : TUSER_MODALS_INFO_0;
dwRet: DWORD;
begin
ZeroMemory(@UserModalsInfo, sizeof(TUser_Modals_Info_0));
dwRet := NetUserModalsGet('hal9000', 0, @UserModalsInfo);
if dwRet = NERR_Success then
ShowMessage(IntToStr(UserModalsInfo.usrmod0_min_passwd_len))
else
ShowMessage(SysErrorMessage(dwRet));
end;
Aber irgendwie stimmt da was nicht. Er gibt mir 1277160 aus. Die mindest Passwortlänge ist aber vier bei mir. Oder verstehe ich da was falsch:
Zitat:
usrmod0_min_passwd_len
Specifies the minimum allowable password length. Valid values for this element are zero through PWLEN.
und das ist gar nicht das, was ich denke, dass es ist?