[Back to NETWORK SWAG index]  [Back to Main SWAG index]  [Original]

{
 Program Name : Unlog.Pas
 Written By   : Anonymous
 E-Mail       : nothing
 Web Page     : nothing
 Program
 Compilation  : Turbo Pascal 5.0 or later

 Program Description :

 Usefulness for BBS'S and general communications.
 For a detailed description of this code source, please,
 read the file TENTOOLS.DOC. Thank you
 }

Program Unlog;
Uses DOS,CRT,TenTools;

TYPE
  Charset = 'A'..'Z';
  RDRTable = Array[1..200] of Char;

VAR
  LocalTable : DriveArray;
  LoginList : LogArray;
  I,J : Integer;
  L,U : Word;
  C : Charset;
  SR : SearchRec;
  SA : Word;
  RDR : ^RDRTAble;

Begin
   ClrScr;
   TextColor(LightCyan);
   I:=13;
{   If ((Mountlist(LocalTable,I)=0)and (I>0))
   then for C:='D' to Char(I+64) do if LocalTable[C].ServerID<>''
   then
    begin
       Writeln('Unmounting ',C,'=',LocalTable[C].RPath,',',LocalTable[C].ServerID,'...');
       U:=Unmount(C);
       Writeln('Logging off ',LocalTable[C].ServerID,'!');
       L:=Logoff(LocalTable[C].ServerID);
    end;
}   If ((LogList(LoginList,I)=0) and (I>0))
   then
    for J:=0 to I-1 do
    begin
       Writeln('Logging off ',LoginList[J]);
       L:=Logoff(LoginList[J]);
    end;
End.

[Back to NETWORK SWAG index]  [Back to Main SWAG index]  [Original]