xin mã code lấy thông tin ổ cứng (1 người xem)

[alibaba2209]

Em có code tên "Readserienumber ()" mỗi lần cài lại win là nó lại 1 mã khác. Nên em muốn code lấy thông tin ổ cứng cho ổn định. Em xin cám ơn

 

[vu_tuan_manh_linh]

Cái này là đọc địa chỉ ổ cứng rồi. Mỗi lần cài lại win thì ra 1 địa chỉ khác. Muốn đọc thông tin liên quan đến từng máy mà tương đối ổn định thì dùng hàm đọc seri mainboard.

 

[alibaba2209]

Cái này là đọc địa chỉ ổ cứng rồi. Mỗi lần cài lại win thì ra 1 địa chỉ khác. Muốn đọc thông tin liên quan đến từng máy mà tương đối ổn định thì dùng hàm đọc seri mainboard.

anh có code đấy ko gửi em xin ạ

 

[vu_tuan_manh_linh]

Hàm này tôi tìm trên mạng chứ cũng chả nghĩ ra được!

Function GetCPUID()
Dim objWMIService
Dim colItems
Dim objItem
     'ta.o ?o^'i ty'o+.ng di.ch vu. WMI
     Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
     'ti`m các CPU ?ang cha.y cu?a máy
     Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
     'la(.p hie^?n thi. ID cu?a tu+`ng CPU
     For Each objItem In colItems
     GetCPUID = objItem.ProcessorId
     Next
End Function

 

[alibaba2209]

Hàm này tôi tìm trên mạng chứ cũng chả nghĩ ra được!

Function GetCPUID()
Dim objWMIService
Dim colItems
Dim objItem
     'ta.o ?o^'i ty'o+.ng di.ch vu. WMI
     Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
     'ti`m các CPU ?ang cha.y cu?a máy
     Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
     'la(.p hie^?n thi. ID cu?a tu+`ng CPU
     For Each objItem In colItems
     GetCPUID = objItem.ProcessorId
     Next
End Function

ok! cảm ơn anh ạ.. a cho em hỏi làm sao để office 2013 chạy được VBA ạ

 

[vu_tuan_manh_linh]

Cũng như 2003 thôi, enable macro là được.

https://sites.google.com/site/excelwebsite/classroom-news/huongdanenablemacrotrongexcel

 

[alibaba2209]

Cũng như 2003 thôi, enable macro là được.

https://sites.google.com/site/excelwebsite/classroom-news/huongdanenablemacrotrongexcel

vâng cảm ơn a! e làm được rồi ạ