in reply to Can Perl read the hard drive registration #?

#!/usr/bin/perl

    use Win32::DriveInfo;


     ($VolumeName,
      $VolumeSerialNumber,
      $MaximumComponentLength,
      $FileSystemName, @attr) = Win32::DriveInfo::VolumeInfo('c');
     print "$VolumeSerialNumber";

[download]
Seems to do what you want.


"Age is nothing more than an inaccurate number bestowed upon us at birth as just another means for others to judge and classify us"

sulfericacid

In Section Seekers of Perl Wisdom