summaryrefslogtreecommitdiff
path: root/dviware/psprint/vms/pass.ps
blob: 9910654ad42584712fc4e158bcb1aa57252f7f23 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
% Verify and/or change a LaserWriter's system password.
% The following code would also work on a Linotronic but not on a
% PrintServer 40 (which uses a string instead of an integer).

72 72 translate 0 0 moveto
/Times-Roman findfont 10 scalefont setfont

0   % current system password?
serverdict begin
statusdict begin
   checkpassword
      { (Password correct. ) show }
      { (Password incorrect! ) show }
   ifelse
% uncomment to change the password to 999999 (use some other large number!)
%   0 999999 setpassword
%      { (Password changed.) show }
%      { (Password NOT changed!) show }
%   ifelse
end

showpage