Category : Network Files
Archive   : NP22.ZIP
Filename : NFOSCR.PAS

program nfoscr;
{$S-,R-,D-}
{ makes use of Turbo TechnoJock from Technojock Software Inc. and
B-Tree Filer from Turbo Power Software Inc..
Please refer to the authors of those products for more info. }

uses crt,DOS,miscttt5,fastttt5,NETWARE;
const
HD = '623-3950';
var s1,s2,s3,n1,n2,n3,n4,n5,n6,f1,f2,f3,f4,f5,w1,w2,w3 : string;
i : word;
conninfo : conninfotype;
shellmajor, shellminor, shellrevision : byte;
OStype, OSver, hardware : string;
serverinfo : serverinformation;
begin
getconninfo(getconnNo, connInfo);
with conninfo, logindate do begin
STR(ObjectID,n1); STR(Month,n2); STR(Day,n3);
STR(Hour,n4); STR(Minute,n5); STR(GetConnNo,n6);
end;
getwsinfo(shellmajor,shellminor,shellrevision,OStype,OSver,hardware);
STR(shellmajor,w1);
STR(shellminor,w2);
STR(shellrevision,w3);
getserverinfo(serverinfo);
with serverinfo do
begin
{f1:='';
f1:=Copy(ServName,1,length(ServName));}
STR(NetWareVer,f2);
STR(NetWareSub,f3);

STR(MaxConns,f4);
STR(UsedConns,f5);
end;
clrscr;
s2:= 'For LAN problems, call the LAN HELP DESK at '+HD+'.';
if paramcount > 0 then
begin
s1 := '';
for i := 1 to paramcount do
s1 := concat(s1,paramstr(i)+' ');
i := pos('*',s1);
if (i <> 0) then
begin
s3 := copy(s1,i+1,78);
delete(s1,i,78);
fbox(1,1,80,13,lightcyan,blue,4);
writebetween(1,80,2,yellow,blue,s1+'it is '+date+' at '+time);
horizline(2,79,3,lightcyan,blue,1);
writebetween(1,80,4,yellow,blue,s2);
horizline(2,79,5,lightcyan,blue,1);
writebetween(1,80,6,yellow,blue,'ObjectID '+n1+' Login Time '+
n2+'/'+n3+' at '+n4+':'+n5+' Connection '+n6);
horizline(2,79,7,lightcyan,blue,1);
writebetween(1,80,8,yellow,blue,'Shell '+w1+'.'+w2+' Rev. '+w3+
' WS-OSType '+OSType+' '+OSVer+' MachineType '+hardware);
horizline(2,79,9,lightcyan,blue,1);
writebetween(1,80,10,yellow,blue,'Net-OSType NetWare '+f2+'.'+f3+
' with '+f5+' current connections of '+f4+' maximum.');
horizline(2,79,11,lightcyan,blue,1);
writebetween(1,80,12,yellow,blue,s3);
end
else
begin
fbox(1,1,80,3,lightcyan,blue,4);
writebetween(1,80,2,yellow,blue,s1)
end;
end
else
begin
fbox(1,1,80,3,lightcyan,blue,4);
writebetween(1,80,2,yellow,blue,'Wrong Number of Parameters.')
end;
gotoxy(1,15);
end.