Lấy thông tin của CPU

[rosy84]

Dear các anh chi trong diễn đàn.

Hiện tại e đang viết chương trình kiểm kê máy tính dùng VBA, nhưng còn việc sử dụng mã nguồn để lấy thông tin của CPU thì có máy lấy được có máy thì lấy không chính xác, vậy các anh chị giúp e đoạn code để lấy được chính xác thông tin của CPU với nhé.

code hiện tại của em là:

Sub CPU_ProcessorSpeed()
' shows the processor name and speed of the computer
      Dim MyOBJ                              As Object
      Dim CPU                                As Object
      CPU_detail = ""
      Set MyOBJ = GetObject("WinMgmts:").instancesof("Win32_Processor")
      For Each CPU In MyOBJ
            'CPU_detail = CPU_detail & CPU.CurrentClockSpeed & " Mhz"
            CPU_detail = CPU_detail & CPU.Name & " " & CPU.CurrentClockSpeed & " Mhz" ', vbInformation
      Next

 

[PhanTuHuong]

Bạn vào thư viện, mục các tập tin kèm theo sách lập trình VBA là có đấy.