Xem CPUID bằng đĩa Hiren’s boot

[tuantlg]

[FONT=&quot]-Tôi nghe nói có thể xem ID của CPU bằng đĩa Hiren’s boot nhưng tìm hoài không thấy chức năng này. Có bạn nào biết giúp giùm với!
- Dùng marco để truy xuất ID của CPU ra desktop tôi cũng có thấy trên mạng nhưng cách chỉ chung chung quá mà tôi lại chưa biết làm thể nào để tạo một marco trên word hoặc excel! Có bạn nào có thể chỉ chi tiết cho được không? Cám ơn nhiều!
[/FONT]

 

[ndu96081631]

[FONT=&quot]-Tôi nghe nói có thể xem ID của CPU bằng đĩa Hiren’s boot nhưng tìm hoài không thấy chức năng này. Có bạn nào biết giúp giùm với!
- Dùng marco để truy xuất ID của CPU ra desktop tôi cũng có thấy trên mạng nhưng cách chỉ chung chung quá mà tôi lại chưa biết làm thể nào để tạo một marco trên word hoặc excel! Có bạn nào có thể chỉ chi tiết cho được không? Cám ơn nhiều!
[/FONT]

Thì vầy thôi:

Sub Test()
  Dim objItem
  On Error Resume Next
  With GetObject("winmgmts:\\.\root\cimv2")
    For Each objItem In .ExecQuery("Select * from Win32_BIOS")
      Range("A1") = objItem.SerialNumber
    Next
  End With
End Sub

Cho code vào Module và chạy!