Viết code VBA đọc serial mainboard

[Tranhoe]

Có Bác nào biết cách Viết code VBA đọc serial mainboard và ổ đĩa cho Mình xin với.

 

[danlaptrinh]

Bạn thử đoạn Code này nhé
Function HDSerialNumber() As String
Dim fsObj As Object
Dim drv As Object
Set fsObj = CreateObject("Scripting.FileSystemObject")
Set drv = fsObj.Drives("C")
HDSerialNumber = Left(Hex(drv.SerialNumber), 4) _
& "-" & Right(Hex(drv.SerialNumber), 4)

End Function

 

[danlaptrinh]

Không hiểu sao ký tự x lại không hiển thị được, mọi người có thể xem bằng ảnh nhé.

 

[vu_tuan_manh_linh]

Có 1 đoạn code khác đọc địa chỉ ổ cứng như sau:
---
Function HDAd()
Dim abc As String
Dim ObjetoWMI As Object
Dim Disco As Object
Dim Discos As Object
Dim j As Integer
Set ObjetoWMI = GetObject("WINMGMTS:")
Set Discos = ObjetoWMI.InstancesOf("Win32_PhysicalMedia")
For Each Disco In Discos
abc = Disco.SerialNumber
If Len(Trim(abc)) > 0 Then
Exit For
End If
Next
HDAd = Trim(abc)
End Function
Tuy nhiên đọc khá chậm trên laptop (dù mình đã thay ổ 7200 cho ổ 5400 nhưng không khả thi hơn!)