Thủ Thuật Access

Thế Giới Thủ Thuật với Access

Lấy về số seri CPU, ổ cứng MainBoard trong Access

Posted by Noname on 18.11.2009

Đôi khi có 1 số nhu cầu lấy thông tin phần cứng trong chương trình (chẳng hạn để cấp bản quyền). Dưới đây là Đoạn Code cho phép bạn lấy thông tin CPU máy tính:

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
 Next
 End Sub

Lưu ý rằng trên các máy PC bình thường, chỉ có 1 CPU nên vòng lặp hiển thị thông tin sẽ chỉ chạy 1 lần và hiển thị ID của CPU duy nhất của máy.

nguồn PC word

2. Lấy CPU ổ cứng:

Sub readserienumber()

Dim fso As Object, Drv As Object
        ‘Create a FileSystemObject object
          Set fso = CreateObject(“Scripting.FileSystemObject”)
          ‘Assign the current drive letter if not specified
          Set Drv = fso.GetDrive()
          With Drv
              If .IsReady Then
                  DriveSerial = Abs(.SerialNumber)
              Else    ‘”Drive Not Ready!”
                  DriveSerial = -1
              End If
          End With
          ‘Clean up
          Set Drv = Nothing
          Set fso = Nothing
          Msgbox “Serial là: “ & DriveSerial
 End Sub

3. Lấy Serial Main Board

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 & obj.SerialNumber
If sAns < objs.Count Then sAns = sAns & “,”
Next
Msgbox “Serial main: “ & sAns
End Sub

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

 
%d bloggers like this: