home *** CD-ROM | disk | FTP | other *** search
/ The Best of Select: Windows 95 Special 1 / WINDOWS95_1.ISO / utils / perl32 / winver.pl < prev   
Text File  |  1995-06-20  |  405b  |  22 lines
  1. # Program Example for O/S Version Check
  2. # by Maxwell N. Andrews
  3. # Date: 12th Jan 1995
  4.  
  5. $winver= winver;
  6. $platform= "Unknown";
  7.  
  8. if ( $winver & 0x80000000 ) {
  9.  
  10.    $platform= ( $winver & 0x40000000 ) ? "Windows 95": "Win32s";
  11. }
  12. else {
  13.  
  14.      $platform= "Windows NT, or DPMI32";
  15. }
  16.  
  17. printf( "You are using $platform v%d.%d\n", $winver & 0xff, ( $winver >> 8 ) & 0xff );
  18.  
  19.  
  20. # End of Program
  21.  
  22.