home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / NWTP04 / XSERV / TSTSERV.PAS < prev   
Pascal/Delphi Source File  |  1993-12-29  |  3KB  |  96 lines
  1. {$X+,V-,B-}
  2. program tstServ;
  3.  
  4. { Testprogram for the nwServ unit / NwTP 0.4 API. (c) 1994, R.Spronk }
  5.  
  6. uses nwMisc,nwServ;
  7.  
  8. Var t1,t2,t3:NovTimeRec;
  9.     s1,s3:string;
  10.  
  11.     serialNbr:Longint;
  12.     appNbr,appNbr2:word;
  13.  
  14.     Sinfo:TserverInfo;
  15.  
  16.     companyName,VersionAndRevision,
  17.     revisionDate,copyrightNotice:String;
  18.  
  19. begin
  20. writeln('Testing the Get/Set ServerTime Calls. (temporarily setting the year to 2020)');
  21. IF GetFileServerDateAndTime(t1)
  22.  then begin
  23.       nwMisc.NovTimeRec2String(t1,s1);
  24.       writeln('Original server time:',s1);
  25.       t2:=t1;
  26.       t2.year:=20; { set year to 2020 }
  27.       t2.day:=1;
  28.       t2.month:=4;
  29.       IF SetFileServerDateAndTime(t2)
  30.        then begin
  31.             GetFileServerDateAndTime(t3);
  32.             nwMisc.NovTimeRec2String(t3,s3);
  33.             if t3.year<>t2.year
  34.              then writeln('Error: FileServerDateAndTime NOT changed..');
  35.             writeln('New server time:',s3);
  36.             SetFileServerDateAndTime(t1)  {restore old date & time }
  37.             end
  38.        else begin
  39.             if nwServ.result=$C6
  40.              then writeln('Error: You need console privileges in order to change the server time.')
  41.              else writeln('SetFileServerDateAndTime Error: $',HexStr(nwServ.result,2));
  42.             end
  43.       end
  44.  else writeln('GetFileServerDateAndTime Error: $',HexStr(nwServ.result,2));
  45.  
  46. writeln;
  47. IF GetServerInformation(Sinfo)
  48.  then begin
  49.       writeln('Testing GetServerInformation..');
  50.       writeln('Servername:',Sinfo.serverName);
  51.       writeln('NW version:',Sinfo.NetwareVersion,'.',Sinfo.NetwareSubVersion);
  52.       writeln('Conn Max,Current:',Sinfo.ConnectionsMax,',',Sinfo.ConnectionsInUse);
  53.       writeln('Peak Conn Used  :',Sinfo.Peak_Conn_Used);
  54.       end
  55.  else writeln('GetFileServerDateAndTime Error: $',HexStr(nwServ.result,2));
  56.  
  57. writeln;
  58. IF GetFileServerDescriptionStrings(companyName,VersionAndRevision,
  59.                                    revisionDate,copyrightNotice)
  60.  then begin
  61.       writeln('Testing GetFileServerDescriptionStrings');
  62.       writeln('Company    :',companyName);
  63.       writeln('Version/Rev:',VersionAndRevision);
  64.       writeln('Rev.Date   :',revisionDate);
  65.       writeln('Copyright  :',copyRightNotice);
  66.       end
  67.  else writeln('GetFileServerDescriptionStrings Error: $',HexStr(nwServ.result,2));
  68.  
  69.  
  70. writeln;
  71. IF GetNetworkSerialNumber(serialNbr,appNbr)
  72.  then begin
  73.       writeln('Testing GetNetworkSerialNumber');
  74.       writeln('SerialNbr=',HexStr(serialNbr,8));
  75.       writeln('AppNbr   =',HexStr(appNbr,4));
  76.       end
  77.  else writeln('GetNetworkServerSerialNumber Error: $',HexStr(nwServ.result,2));
  78.  
  79. { The last test is commented out. It works, but it is a bit irritating to
  80.   be disconnected every time I'm testing a call.. }
  81.  
  82. {writeln;
  83. IF VerifyNetworkSerialNumber(serialNbr,appNbr2)
  84.  then begin
  85.       if appNbr2=appNbr then writeln('Serial Number Verified.');
  86.       writeln;
  87.       writeln('Verifying a wrong network serialnumber..');
  88.       writeln('**** THIS WILL TERMINATE THE CONNECTION **** (if the calls works..)');
  89.       If VerifyNetworkSerialNumber($12345678,appNbr2)
  90.        then writeln('false serialnumber verified as being OK');
  91.       end
  92.  else writeln('VerifyNetworkSerialNumber Error: $',HexStr(nwServ.result,2));}
  93.  
  94.  
  95. end.
  96.