home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Windows 95 Special 1 / WINDOWS95_1.ISO / utils / perl32 / smtp.pl < prev    next >
Text File  |  1995-06-20  |  726b  |  39 lines
  1. require 'hives.pl';
  2.  
  3. if ( &setupSMTP )
  4. {
  5.    print 'SMTP Mail Registry Update Successfully Completed...',"\n";
  6. }
  7. else
  8. {
  9.    print 'SMTP Mail Registry Update Failed...',"\n";
  10. }
  11.  
  12. print 'Please Hit Any Key to Exit...';
  13.  
  14. getc;
  15.  
  16. sub setupSMTP
  17. {
  18.        local( $smtpKey );
  19.  
  20.        $smtpKey= 'SOFTWARE\Microsoft\Windows\CurrentVersion\Setup\OptionalComponents';
  21.  
  22.        &setLM( $smtpKey,'Route66',$REG_SZ,'Route66' ) || return 0;
  23.  
  24.        $smtpKey .= '\Route66';
  25.  
  26.        &cKeyLM( $smtpKey ) || return 0;
  27.  
  28.        &setLM( $smtpKey,'INF',$REG_SZ,'mailopt.inf' ) || return 0;
  29.  
  30.        &setLM( $smtpKey,'Installed',$REG_SZ,'0' ) || return 0;
  31.  
  32.        &setLM( $smtpKey,'Section',$REG_SZ,'route66' );
  33. }
  34.  
  35.  
  36.  
  37.  
  38.  
  39.