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

使用说明：

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