Hello.
Thank you very much for your contribution. We have rolled most of it into the
base code, and it will appear in the next release.
However, we note that some of your code uses Win32::AdminMisc, which does not
seem to be standard part of the ActiveState perl distribution (it used to be
part of the standard Win32 libs, even though it overlapped to some extent with
NetAdmin)
Is Win32::AdminMisc now standard?
We too are very surprised that there is no other way to validate a
username/password. I wish it was different.
Thanks again for your code.
Cheers.
On Jan 10, 3:27am, [EMAIL PROTECTED] wrote:
> Subject: (RADIATOR) AuthBy NT: Account Expired and Account Locked
> Hello,
>
> I noticed that Radiator did not detect when an account is Expired or Locked
> (this is different from disabled) in the NT SAM
> May I suggest the following addition to the AuthNT.pm module:
>
> require Win32::AdminMisc;
> import Win32::AdminMisc;
>
> # #########################################################
> # insert this part on line 156 in AuthNT.pm (just after the "Account is
> disabled" condition )
> # #########################################################
> elsif ($Getflags & &UF_LOCKOUT)
> {
> return ($main::REJECT, "Account is Locked");
> }
> my %HashMiscAttributes;
> if ( Win32::AdminMisc::UserGetMiscAttributes($self->{DomainController},
> $user_name, \%HashMiscAttributes))
> {
> if ($HashMiscAttributes{USER_ACCT_EXPIRES} < time)
> {
> return ($main::REJECT, "Account is Expired");
> }
> }
> # ##########################################################
>
> Although this addition will make AuthNT more usefull, I feel It would be
> much cleaner to find a way to send the UserName/Password combo to the
> DomainController in order to do the checking internally.
> I am very surprised there are no functions available to authenticate a user
> against NT SAM
>
>
>
>
>
> ===
> Archive at http://www.thesite.com.au/~radiator/
> To unsubscribe, email '[EMAIL PROTECTED]' with
> 'unsubscribe radiator' in the body of the message.
>-- End of excerpt from [EMAIL PROTECTED]
--
Mike McCauley [EMAIL PROTECTED]
Open System Consultants Pty. Ltd Unix, Perl, Motif, C++, WWW
24 Bateman St Hampton, VIC 3188 Australia http://www.open.com.au
Phone +61 3 9598-0985 Fax +61 3 9598-0955
Radiator: the most portable, flexible and configurable RADIUS server
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald,
Platypus, Freeside, TACACS+, PAM, external, etc etc on Unix, Win95/8,
NT, Rhapsody
===
Archive at http://www.thesite.com.au/~radiator/
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.
