Function GetDiskDriveSerialNumber() As String
    On Error GoTo ErrorHandler
    
    Dim wmiService As Object
    Dim diskDrives As Object
    Dim diskDrive As Object
    Dim serialNumber As String
    
    ' 创建WMI服务对象
    Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
    
    ' 查询磁盘驱动器信息
    Set diskDrives = wmiService.ExecQuery("SELECT * FROM Win32_DiskDrive")
    
    ' 获取第一个磁盘驱动器的序列号
    For Each diskDrive In diskDrives
        serialNumber = diskDrive.SerialNumber
        If serialNumber <> "" Then
            GetDiskDriveSerialNumber = serialNumber
            Exit For
        End If
    Next diskDrive
    
    ' 清理对象
    Set diskDrive = Nothing
    Set diskDrives = Nothing
    Set wmiService = Nothing
    
    Exit Function
    
ErrorHandler:
    GetDiskDriveSerialNumber = "Error: " & Err.Description
End Function

' 使用示例
Sub ShowDiskSerial()
    Dim serial As String
    serial = GetDiskDriveSerialNumber()
    MsgBox "硬盘序列号: " & serial, vbInformation, "硬盘信息"
End Sub