获取硬盘序列号?

'**************************** 获取硬盘序列号
Private Declare Function HDSerialNumRead Lib "HDSerialNumRead.dll" () As String

Public Function GetHDSerialNum() As String

    On Error GoTo Err_tuichu    

    Dim s As String
    s = Trim(HDSerialNumRead())
    GetHDSerialNum = Nz(Left(s, Len(s) - 1), 0)

    Exit Function

   End Function

请问用这个函数判断序列号,如果硬盘格式化后,会有影响吗,前后的序列号一样吗