home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ECO30603.ZIP / ECO30603.LZH / ECOLIBII / DEMOS / NOVELL / QLOGIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-12-18  |  890 b   |  30 lines
  1. {$A-,B-,D-,E-,F+,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520, 0, 655360}
  3. uses
  4.   eco_lib, dos
  5.   
  6.   ;
  7.  
  8.  
  9. var
  10.   loginpwd,
  11.   loginname : string;
  12.  
  13.  
  14. begin
  15.   __stdio; __setblwin(false);
  16.   if __inparams('/?', error) then begin
  17.     writeln(__progname);
  18.     writeln('  Usage: ', __progname, ' while using environment variables:');
  19.     writeln(__rep(length(__progname)+10, ' '), 'USER USERPWD');
  20.     writeln(__rep(length(__progname)+10, ' '), 'Pushes name and possibly password');
  21.     writeln(__rep(length(__progname)+10, ' '), 'in keyboardbuffer for quick login.');
  22.     writeln(__rep(length(__progname)+10, ' '), 'Password + loginname max 15 chars.');
  23.     halt;
  24.   end;
  25.   loginname := __up(getenv('USER')); loginpwd := __up(getenv('USERPWD'));
  26.   __flushkey; 
  27.   if (__nw(loginname) <> '') then __stuffkey(loginname+#13);
  28.   if (__nw(loginpwd ) <> '') then __stuffkey(loginpwd+#13);
  29. end.
  30.