Vb.net 格式化后硬盘是否保留相同的序列号？

有几种方法可以获取硬盘驱动器的序列号。我搜索并设计了如下代码：

Public Function GetDriveSerialNumber() As String
    Dim DriveSerial As Long
    Dim fso As Object, Drv As Object

    fso = CreateObject("Scripting.FileSystemObject")
    Drv = fso.GetDrive(fso.GetDriveName("C:\"))

    With Drv
        If .IsReady Then
            DriveSerial = .SerialNumber
        Else 
            DriveSerial = -1
        End If
    End With
    Drv = Nothing
    fso = Nothing
    GetDriveSerialNumber = Hex(DriveSerial)
End Function

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    MsgBox(GetDriveSerialNumber(), vbOKOnly, "Serial")
End Sub

在堆栈溢出站点中，有许多这样的代码块。当我运行代码时，它会给我硬盘C的序列号，如“349B3214”

---

我没有尝试格式化我的计算机，但是格式化后它会改变吗？我是说当我跑的时候，上面写着你的序列号是349B3214。如果我格式化我的计算机并再次运行此代码，它会给我相同的序列号还是不同的序列号？

否，这是最新版本，谢谢Steve。我在寻找一种方法，以获得一个“数字”，永远不会改变后格式化。我看这不是那个：）再次谢谢你。（虽然是C#）可以给你一些搜索的想法。史蒂夫，我也试着获取主板序列号和CPU序列号。代码如下。他们正在工作。我们可以说这些函数给了我们永久的“数字”，在格式化后不会改变。？CPU和主板没有格式化。。。。。