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à:
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à:
Mã:
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