home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
PASCAL
/
NWTP06
/
CEXPPW.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-03-01
|
2KB
|
67 lines
{$X+,B-,V-} {essential compiler directives}
Program CexpPw;
{ Example for the nwConn unit / NwTP 0.6 API. (c) 1993,1995, R. Spronk }
{ Andre Middendorp [2:512/220] wrote on Sun 3 Jul 94
Q: Ik ben op zoek naar een tooltje waarmee ik op een NW 3.1x server
een file aan kan maken met daarin alle gebruikers waarvan het
wachtwoord is vervallen. Wie weet iets....?
A: Here's a short program that will check whether or not the password
has expired of any user object. It will present you with a list of
all accounts that are expired.}
Uses nwMisc,nwBindry,nwConn,nwServ;
{ nwServ used for GetFileServerDateAndTime only }
{ Demonstates the GetObjectLoginControl function.
see also the information provided with the ObjectCanLoginAt call }
Var TimeNow :TnovTime;
lastObjSeen :Longint;
RepName :String;
RepType :Word;
RepId :LongInt;
RepFlag :Byte;
RepSecurity :Byte;
RepHasProperties:Boolean;
LogControlInfo :TloginControl;
NbrOfExp :word;
Begin
Writeln('CEXPPW: Check Expired Passwords.');
IF NOT (IsShellLoaded and IsUserLoggedOn)
then begin
writeln('Load network shell and logon before running this program');
halt(1);
end;
GetFileServerDateAndTime(TimeNow);
NbrOfExp:=0;
lastObjSeen:=-1;
WHILE
ScanBinderyObject('*',OT_USER,lastObjSeen,
RepName, RepType, RepId,
RepFlag, RepSecurity, RepHasProperties)
do begin
IF GetObjectLoginControl(RepName,RepType,LogControlInfo)
then with LogControlInfo.AccountExpirationDate
do if (year>0) { year=0: no expiration date was set }
and (TimeNow.year>=year)
and (TimeNow.month>=month)
and (TimeNow.day>=day)
then begin
writeln('Account of ',Repname,' expired on: ',day,'/',month,'/',year);
inc(NbrOfExp);
end;
end;
if nwBindry.Result<>$FC { NO_SUCH_OBJECT, indicates end of search }
then writeln('Error scanning bindery : $',HexStr( nwBindry.Result,2));
if NbrOfExp=0
then writeln(#10#13,'No expired passwords found.')
else writeln('(dates expressed in dd/mm/yy format.');
end.