Hỏi về cách khắc phục lỗi khi sử dụng hàm đọc địa chỉ ổ cứng (1 người xem)

[vu_tuan_manh_linh]

Tham khảo trên diễn đàn, tôi thấy có hàm đọc địa chỉ ổ cứng như sau:

Function Pass() As Variant
Dim Seri As String, abc As String, Char 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
Pass = Trim(abc)
End Function

Tuy nhiên, một số máy tính khi chạy hàm này thì báo lỗi tại dòng "abc = Disco.SerialNumber".
Mong các thành viên trong diễn đàn chỉ giúp cách khắc phục!