perl 怎样读硬盘的系列号？

sandy_amao

各位大神，PERL怎样可又读硬盘的系列号？给否指点一下
谢谢

tmp

ioctl ?
                                                                                                                                      

sandy_amao

IOCTL? 不是想控制IO口

laputa73

http://www.2cto.com/os/201209/154891.html

sandy_amao

搞定，谢谢！
use Win32:riveInfo;


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