硬盘物理序列号全球都是唯一的，将此控件功效用到你软件的注册功效中是最好的选择(且这控件是全免费的)

应用阐明：

Option Explicit

'硬盘参数
Dim rDisk As ReYo.DiskInfo


Private Sub Command1_Click()

Set rDisk = New ReYo.DiskInfo

Text1 = rDisk.GetDiskMode
Text2 = rDisk.GetDiskSerialNumber

Set rDisk = Nothing

End Sub