Máy tính có đặc điểm gì riêng

[SAODOINGOI_XD]

Cho em hỏi hai máy tính có cùng cấu hình y hệt nhau thì nó sẽ khác nhau về cái gì, ý em để phân biệt đấy là máy A và đây là máy B.

 

[SAODOINGOI_XD]

Nếu máy tính nối mạng nội bộ hay internet thì có khai địa chỉ IP thì có thể phân biệt được bằng địa chỉ IP. Em có đọc được đoạn code tìm địa chỉ IP của bác Ndu

Sub Test()
  With CreateObject("Wscript.Shell")  
  .Run "cmd /c IPCONFIG > C:\IP_Address.txt", 0, True 
 End With  
With CreateObject("Shell.Application")  
  .Open "C:\IP_Address.txt"  
End With
End Sub

Còn cách khác để phân biệt máy nữa không ạ.

 

[ndu96081631]

Nếu máy tính nối mạng nội bộ hay internet thì có khai địa chỉ IP thì có thể phân biệt được bằng địa chỉ IP. Em có đọc được đoạn code tìm địa chỉ IP của bác Ndu

Sub Test()
  With CreateObject("Wscript.Shell")  
  .Run "cmd /c IPCONFIG > C:\IP_Address.txt", 0, True 
 End With  
With CreateObject("Shell.Application")  
  .Open "C:\IP_Address.txt"  
End With
End Sub

Còn cách khác để phân biệt máy nữa không ạ.

Khác nhièu chứ:
- Hard Disk ID
- CPU ID
- User Name
- Computer Name
vân vân

 

[SAODOINGOI_XD]

Khác nhièu chứ:
- Hard Disk ID
- CPU ID
- User Name
- Computer Name
vân vân

Thế cho em hỏi có thể viết đoạn code như lấy địa IP được không thầy, Lấy Hard Disk ID, CPU ID

 

[SAODOINGOI_XD]

Em có sâu tập được trên mạng một đoạn code lấy địa chỉ Id của CPU, mong thầy và các anh xem và góp ý thêm ạ.

 Sub GetCPUID()
  'tạo đối tượng dịch vụ WMI
 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  'tìm các CPU đang chạy của máy 
 Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
  ' lặp hiển thị ID của từng CPU
 For Each objItem In colItems
 MsgBox "Processor Id: " & objItem.ProcessorId
 Next
 End Sub

 

[ndu96081631]

Em có sâu tập được trên mạng một đoạn code lấy địa chỉ Id của CPU nhưng không biết chạy bị lỗi, mong thầy và các anh xem và sữa cho em với ạ.

 Sub GetCPUID()
 ‘tạo đối tượng dịch vụ WMI
 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
 ‘tìm các CPU đang chạy của máy 
 Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
 ‘lặp hiển thị ID của từng CPU
 For Each objItem In colItems
 MsgBox "Processor Id: " & objItem.ProcessorId
 Next
 End Sub

Code báo lỗi? Cụ thể là lỗi gì?

 

[SAODOINGOI_XD]

Sao em thử chạy đoạn code trên với các máy khác nhau thì hai máy cùng cấu hình cho cùng một kết quả ID của CPU nhả.

 

[ndu96081631]

Sao em thử chạy đoạn code trên với các máy khác nhau thì hai máy cùng cấu hình cho cùng một kết quả ID của CPU nhả.

Bạn thử lấy số Bios serial number xem có bị trùng không:

Sub Test()
  Dim sComm As String, tmpFile, biosSN
  On Error Resume Next
  With CreateObject("Scripting.FileSystemObject")
    tmpFile = .GetTempName
    sComm = "wmic bios get serialnumber" & " > " & tmpFile
    CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
    biosSN = Split(.OpenTextFile(tmpFile, 1, 0, -1).ReadAll, vbCrLf)
  End With
  MsgBox biosSN(1)
  Kill tmpFile
End Sub

 

[SAODOINGOI_XD]

Em có chạy nó vẫn cho kết quả giống nhau thầy ạ!

 

[ndu96081631]

Em có chạy nó vẫn cho kết quả giống nhau thầy ạ!

Trên các mạng nước ngoài cũng nhiều người hỏi vấn đề này rồi! Đáng tiếc là tôi không rành lắm, cũng chưa nghiên cứu sâu nên không biết "cái gì" là dấu hiệu phân biệt 100% sự khác nhau giữa 2 máy tính
Dùng IP Address cũng có cái khó, nếu người ta dùng IP động thì sao?
Nếu biết được "cái gì" ấy là cái gì thì ta hoàn toàn có thể viết code được
Hic...

 

[nguyenmanhnam]

Khác nhièu chứ:
- Hard Disk ID
- CPU ID
- User Name
- Computer Name
vân vân

Liệu có Code nào để tìm Drive cho máy được nhanh nhất không hả thày.

 

[ndu96081631]

Liệu có Code nào để tìm Drive cho máy được nhanh nhất không hả thày.

Nếu là Laptop mua thời gian gần đây thì quá dễ: Vào trang chủ của nhà cung cấp sẽ có đầy đủ mọi driver zin
Nếu mà máy bàn hoặc máy tính mua đã lâu, tôi thường vào trang này:
http://www.ma-config.com/en
Bấm Start the detection, làm theo hướng dẫn sẽ download được driver đang thiếu trên máy mình

 

[namkpac]

Code báo lỗi? Cụ thể là lỗi gì?

Các anh cho em hỏi với: với đoạn code trên thì nếu máy có 2 ID CPU thì nó sẽ báo 2 lần ID CPU vậy giờ em muốn lấy 1 lần thôi thì sửa code thế nào? Em hỏi thêm tý nữa, vì sao khi ghost máy thì nó báo có 2 ID CPU còn khi cài thủ công thì nó chỉ báo có 1 ID CPU