home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
PASCAL
/
NWTP06
/
LOGLOCK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-03-01
|
971b
|
40 lines
{$X+,B-,V-} {essential compiler directives}
program loglock;
{ Example for the nwServ unit / NwTP 0.6 API. (c) 1993,1995, R.Spronk }
{ Purpose: This program toggles the login status..
If User Login was enabled, it will be diabled and v.v. }
{ Tests the following nwServ functions:
DisableFileServerLogin
EnableFileServerLogin
GetFileServerLoginStatus
}
uses nwMisc,nwServ;
Var allowed:boolean;
begin
IF GetFileServerLoginStatus(allowed)
then begin
if allowed
then begin
DisableFileServerLogin;
writeln('Login Disabled.')
end
else begin
EnableFileserverLogin;
writeln('Login Enabled.')
end
end
else begin
if nwServ.result=$C6
then writeln('You need console operator rights to run this utility.')
else writeln('GetFileserverLoginStatus Error : $',HexStr(nwServ.result,2));
end;
end.