Lấy thông số cpu của máy tính ra một cell trong sheet (2 người xem)

[mitomcombui]

Chào mọi người, mình có một bài toán thế này: Mình cần lấy thông số CPU của máy tính ra một ô trong 1 sheet chỉ bằng 1 cái click chuột ngay trên Nút bấm(có chứa đường link) trong sheet đó hoặc sheet khác. Mình đã lấy được thông số CPU rồi nhưng là một form hiển thị độc lập so với sheet đó. Vấn đề bây giờ là chuyển các thông số đó vào một ô cụ thể.
Đây là file mình đã lấy được thông số CPU: View attachment Book1.xls
Nhờ mọi người giúp đỡ. Cảm ơn nhiều!!!

 

[thanhlanh]

Không cho ra kết quả? Vậy nó ra cái gì? Báo lỗi chăng? Anh thử bấm F9 thử xem có tác dụng gì không?
Hoặc down file này về chạy thử xem thế nào nhé

Ndu xem hinh nhé:

Hoặc trong code trên, chổ nào có chữ GetObject anh sửa thành CreateObject xem

Đã thử nhưng không ăn thua!

 

[ndu96081631]

Ndu xem hinh nhé:

Cũng chẳng biết là nguyên nhân gì nữa. Tuy nhiên anh cứ thử sửa thành vầy xem:

Function GetBoardSerial()
  Dim obj
  Application.Volatile
  With GetObject("winmgmts:{impersonationLevel=impersonate}")
    For Each obj In .InstancesOf("Win32_BaseBoard")
      GetBoardSerial = obj.SerialNumber
    Next
  End With
End Function

Hoặc:

Function GetBoardSerial()
  Dim obj
  Application.Volatile
  With GetObject("winmgmts:{impersonationLevel=impersonate}")
    For Each obj In .InstancesOf("Win32_BIOS")
      GetBoardSerial = obj.SerialNumber
    Next
  End With
End Function

Ah... mà anh dùng Windows gì nhỉ?

 

[thanhlanh]

Chiêu cuối của ndu:

Function GetBoardSerial()
Dim obj
Application.Volatile
With GetObject("winmgmts:{impersonationLevel=impersonate}")
For Each obj In .InstancesOf("Win32_BIOS")
GetBoardSerial = obj.SerialNumber
Next
End With
End Function
[/php]Ah... mà anh dùng Windows gì nhỉ?

Trả về ba ký tự "OEM"
Là sao ndu? MainBoarn mình có gì khác?
Đây là Properties "Cục sắt" của mình, WinXP-SP3

 

[mitomcombui]

Chiêu cuối của ndu:


Trả về ba ký tự "OEM"
Là sao ndu? MainBoarn mình có gì khác?
Đây là Properties "Cục sắt" của mình, WinXP-SP3

Một số mainboard sẽ không hiện gì hoặc hiện N/A (ví dụ như máy vaio chẳng hạn)

 

[ndu96081631]

Chiêu cuối của ndu:
Trả về ba ký tự "OEM"
Là sao ndu? MainBoarn mình có gì khác?

Đến đây thì em... thua, hổng biết gì ráo trọi

 

[KUMI]

Đến đây thì em... thua, hổng biết gì ráo trọi

Thầy ơi tiếp đi Thầy!
Chắc là thời ấy trình của Thầy đang ở cấp độ "yêu đương Em GPE" nên kiến thư'c còn hơi Ẹc Ẹc ... )))) . Còn giờ thì chắc khác nhiều Thầy nhỉ..Vì Thầy đã Úp Sọt và sở hữu được Em này rồi nhỉ... hahaha
Giờ Thầy có thể giúp con làm lại 1 cái file khác hoản hảo hơn được khộng ạ! Cảm ơn Thầy!

 

[ndu96081631]

Thầy ơi tiếp đi Thầy!
Chắc là thời ấy trình của Thầy đang ở cấp độ "yêu đương Em GPE" nên kiến thư'c còn hơi Ẹc Ẹc ... )))) . Còn giờ thì chắc khác nhiều Thầy nhỉ..Vì Thầy đã Úp Sọt và sở hữu được Em này rồi nhỉ... hahaha
Giờ Thầy có thể giúp con làm lại 1 cái file khác hoản hảo hơn được khộng ạ! Cảm ơn Thầy!

Thế code trong file ở bài 17 thì sao?

 

[KUMI]

nó như bài #21 Thầy ThanhLanh đã viết Thầy ạ!


Mà nếu máy có 2 ổ cứng trở nên thì Cái HDD là Ổ cứng nào vậy Thầy.
Có phải là cái Ổ chứa cái file Excel đang mở không hả Thầy? Hay nó là ổ Win vậy ạ!

 

[ndu96081631]

nó như bài #21 Thầy ThanhLanh đã viết Thầy ạ!
View attachment 104853

Thế còn code này thì sao:

Function GetBoardSerial()
  Dim obj
  Application.Volatile
  With CreateObject("winmgmts:{impersonationLevel=impersonate}")
    For Each obj In .InstancesOf("Win32_BIOS")
      GetBoardSerial = obj.SerialNumber
    Next
  End With
End Function

 

[KUMI]

Thế còn code này thì sao:

Function GetBoardSerial()
  Dim obj
  Application.Volatile
  With CreateObject("winmgmts:{impersonationLevel=impersonate}")
    For Each obj In .InstancesOf("Win32_BIOS")
      GetBoardSerial = obj.SerialNumber
    Next
  End With
End Function

không biết con làm có đúng không mà nó lại báo lỗi thế này

Thầy xem giúp ạ!

 

[KUMI]

à mà không phải vẫn hiện tượng lỗi giống bài #29 Thầy ạ!

 

[thanh tong]

Thế còn code này thì sao:

Function GetBoardSerial()
  Dim obj
  Application.Volatile
  With CreateObject("winmgmts:{impersonationLevel=impersonate}")
    For Each obj In .InstancesOf("Win32_BIOS")
      GetBoardSerial = obj.SerialNumber
    Next
  End With
End Function

Hôm nay tôi đọc bài này và cũng thử kiểm tra trên máy của mình thì nó cũng chẳng có thông tin gì về main cả? tại sao nhỉ?( main của tôi là giga 31) Bác Du có thể xem nguyên nhân là ở code hay tại main không?.
Nhân tiện Bác Du cho em hỏi có cách nào dựa vào những thông số này để mình tạo cho 1 file excel chỉ sử dụng trên một máy nếu copy sang máy khác khi mở lên là nó kill luôn không?

 

[hieuxd]

Ở máy tính em Test thấy bình thường
Máy tính của em là Laptop Asus
Sử dụng Win 7 32 Bit Excel 2010

 

[KUMI]

hôm nay tôi đọc bài này và cũng thử kiểm tra trên máy của mình thì nó cũng chẳng có thông tin gì về main cả? Tại sao nhỉ?( main của tôi là giga 31) bác du có thể xem nguyên nhân là ở code hay tại main không?.
Nhân tiện bác du cho em hỏi có cách nào dựa vào những thông số này để mình tạo cho 1 file excel chỉ sử dụng trên một máy nếu copy sang máy khác khi mở lên là nó kill luôn không?

eo ôi,,, khiếp...có thể như vậy được không mà hỏi dữ vậy anh?? @@!

 

[KUMI]

Em không rõ lắm nhưng theo cách kiểm tra của Anh hieuxd ở bài http://www.giaiphapexcel.com/forum/...về-vấn-đề-lấy-tất-cả-các-thông-từ-máy-vi-tính
thì cấu hình CUP của em là như thế này phải không ạ:



Sao cấu hình của Anh hieuxd được mà của em và cua thanh tong lại không nhỉ...hix! (Thầy ơi!!)

 

[hieuxd]

eo ôi,,, khiếp...có thể như vậy được không mà hỏi dữ vậy anh?? @@!

Có làm được đấy, mình đã đọc Box này cũng có nói tới
http://www.giaiphapexcel.com/forum/...A-hoặc-B-nhưng-không-cho-chạy-ở-Máy-tính-khác!

 

[ndu96081631]

à mà không phải vẫn hiện tượng lỗi giống bài #29 Thầy ạ!

Bây giờ bạn kiểm tra bằng tay thế này nhé:
- Bấm tổ hợp phím Lá cờ Windows + R và gõ vào dòng lệnh: cmd rồi Enter
- Trong cửa sổ cmd vừa mở, bạn gõ dòng lệnh này vào: wmic bios get serialnumber rồi Enter
Xem thử nó ra cái gì? Chụp hình kết quả gửi lên tôi xem nhé
Nếu công đoạn kiểm tra bằng tay này thành công thì tôi sẽ có cách viết code (dựa vào dòng lệnh trên). Bằng ngược lại thì.. ngu luôn

 

[KUMI]

Bây giờ bạn kiểm tra bằng tay thế này nhé:
- Bấm tổ hợp phím Lá cờ Windows + R và gõ vào dòng lệnh: cmd rồi Enter
- Trong cửa sổ cmd vừa mở, bạn gõ dòng lệnh này vào: wmic bios get serialnumber rồi Enter
Xem thử nó ra cái gì? Chụp hình kết quả gửi lên tôi xem nhé
Nếu công đoạn kiểm tra bằng tay này thành công thì tôi sẽ có cách viết code (dựa vào dòng lệnh trên). Bằng ngược lại thì.. ngu luôn

Thầy ơi!!! Gõ lệnh trên thê nào đây ... huhuh

[video=youtube;vYVKLIQQDTE]http://www.youtube.com/watch?v=vYVKLIQQDTE&feature=youtu.be[/video]


con đã gõ rồi không ra kết quả... ~^^~

 

[PhanTuHuong]

Hôm nay tôi đọc bài này và cũng thử kiểm tra trên máy của mình thì nó cũng chẳng có thông tin gì về main cả? tại sao nhỉ?( main của tôi là giga 31) Bác Du có thể xem nguyên nhân là ở code hay tại main không?.
Nhân tiện Bác Du cho em hỏi có cách nào dựa vào những thông số này để mình tạo cho 1 file excel chỉ sử dụng trên một máy nếu copy sang máy khác khi mở lên là nó kill luôn không?

Tôi đã làm từ lâu rồi, share trên diễn đàn GPE rồi, pm bán được tiền cơ! Bạn hãy tỏ trình độ mình đã rồi hãy tính nhé... Ghét nhất những ai suốt ngày vào hỏi giấu giếm này nọ!!

 

[KUMI]

Tôi đã làm từ lâu rồi, share trên diễn đàn GPE rồi, pm bán được tiền cơ! Bạn hãy tỏ trình độ mình đã rồi hãy tính nhé... Ghét nhất những ai suốt ngày vào hỏi giấu giếm này nọ!!

Thầy ơi! Bình tĩnh ạ! Công nhận trên diễn đàn thì vấn đề bảo mật là quá tầm thường.
Nhưng đôi khi ở cty hay 1 doanh nghiệp nào đó thì mình cũng có những cái riêng tư của một mảng nhất định nào đó Thầy ạ!
Ví dụ file tính lương của bộ phận kế toán hay nhân sự chẳng hạn em cũng muốn có ý tưởng chỉ mở trong được 1 số máy của bộ phận này hoặc bộ phận kia thôi còn máy khác sớ rớ vào thì die luôn.
Cái này mình chống người ngay thôi Thầy ạ! Chứ chống cao thủ thì ... @@ chắc chịu... nhất là gặp phải GPE chưa đầy 3S...
-------
Theo Em việc học hỏi trao đổi cũng có nhiều mục đích do vậy mong Thầy bớt giận ạ...
Hix hôm nay Em mới sờ đến thông tin của CPU đấy chứ bình thường em có biết và quan tâm gì đâu... hihi