home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Pascal / 10TLST.ZIP / DEVICES.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-09-16  |  866 b   |  38 lines
  1. Program Devices;
  2. Uses CRT,Tentools;
  3. VAR
  4.    SaveUser : S8;
  5.    SavePW : PW8;
  6.    Dlist : DeviceArray;
  7.    I,D,E : Integer;
  8.    ServerName : S12;
  9.    RetCode : Word;
  10. Begin
  11.    If ParamCount<1
  12.    then
  13.     begin
  14.        Writeln('Enter a Node name as a parameter!');
  15.        Halt;
  16.     end
  17.    else ServerName:=ParamStr(1);
  18.    SaveUser:=Username;
  19.    SetUsername('OPERATOR');
  20.    For I:=1 to Length(Servername) do ServerName[I]:=Upcase(ServerName[I]);
  21.    RetCode:=Login(ServerName,SavePW);
  22.    If (RetCode=0)
  23.    then
  24.     begin
  25.        RetCode:=GetDevices(ServerName,DList,D);
  26.        If Retcode=0
  27.        then
  28.         begin
  29.            for E:=0 to D-1 do
  30.             Writeln(Dlist[E]);
  31.         end
  32.        else
  33.         Writeln('Error: ',Retcode);
  34.     end
  35.    else Writeln('Error Logging into ',Servername,' : ',RetCode);
  36.    SetUsername(SaveUser);
  37. End.
  38.