Cho em hỏi về Serial HDD

[nhnn1986]

Chào Anh/Chị ạ

Em có đoạn code sau để lấy serial ổ cứng.
Máy em chạy win 7 lấy serial ổ C nó ra số dương: 1090195401
Tuy nhiên qua máy khác Win 10 lấy Serial ổ C thì nó lại ra số âm: -1803603170
Cho em hỏi là Serial ổ cứng có số âm như thế kia là sao ạ?
Là code của em chạy:

Sub serial()
  Dim SerialNumber As String
  SerialNumber = CreateObject("Scripting.FileSystemObject").Drives("C").SerialNumber
  MsgBox "Hello " & Environ("UserName") & vbLf _
         & SerialNumber
 
End Sub

 

[Lequocvan]

Mình search và áp dụng trên máy mình thì như sau:

Sub TB_Serial_HDD()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    DriveSerialNumber = Format(CDbl(FSO.Drives("C:").SerialNumber))
    
    MsgBox "Hello " & Environ("UserName") & vbLf _
        & DriveSerialNumber
 
End Sub

 

[nhnn1986]

Thanks @Lequocvan
Code chạy ra cùng kết quả hi hi. ý của mình muốn hỏi là Serial HDD có khi nào nó ra dấu âm không, như trường hợp mình chạy trên máy cài Win 10 thì nó có dấu "-......"

 

[Kiều Mạnh]

Cảm ơn @Lequocvan
Code chạy ra cùng kết quả hi hi. ý của mình muốn hỏi là Serial HDD có khi nào nó ra dấu âm không, như trường hợp mình chạy trên máy cài Win 10 thì nó có dấu "-......"

thử thêm cái Hàm abs vào xem Abs(SerialNumber)

Bài đã được tự động gộp: 5/11/18

thử thêm cái Hàm abs vào xem Abs(SerialNumber)

Public Function ReadSeriesNumber()   
    With MyFso.GetDrive(Environ("SystemDrive"))
        If .IsReady Then
            ReadSeriesNumber = Abs(.SerialNumber)
        Else
            ReadSeriesNumber = -1
        End If
    End With
    MsgBox ReadSeriesNumber
End Function