(11-11-10, 11:11 AM)Cafe Via He Đã viết: @ Bạn Quân: Thử lại đoạn code này, Cafe thêm mắm muối chút nè

Mã:

Sub readseriemainboard()
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim sAns As String
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs

    sAns = sAns & "Serial Number: " & obj.SerialNumber & vbCrLf
    sAns = sAns & "Model: " & obj.product & vbCrLf

    If sAns < objs.Count Then sAns = sAns & ","

Next
'Set objs = Nothing
Set objs = WMI.InstancesOf("Win32_BIOS")
  
For Each obj In objs
    sAns = sAns & "BIOS: " & obj.Manufacturer & vbCrLf
Next
MsgBox sAns
End Sub

(11-11-10, 11:25 AM)Cafe Via He Đã viết: --------->>>> Sửa lại đoạn code GETCPU của Noname chút. Lấy CPU name và Manufacturer

Mã:

Sub GetCPUID()
     'ta.o ðo^'i tý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
     MsgBox "Processor Id: " & objItem.ProcessorId & vbCrLf & _
            "Proccess Name: " & objItem.Name & vbCrLf & _
            "Manufacturer: " & objItem.Manufacturer
     Next
End Sub