Thank mas. Edy. sudah bisa, buat teman yang belum bisa dan ingin mencoba, ini
contoh:
dari source aslinya ada sedikit yg sy rubah dan tambahkan:
Private Sub Command26_Click()
On Error Resume Next
Dim strComputer As String
Dim objWMIService As Object
Dim colItems As Object
Dim objItem As Object
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard", , 48)
For Each objItem In colItems
Debug.Print "Caption: " & objItem.Caption
Debug.Print "ConfigOptions: " & objItem.ConfigOptions
Debug.Print "CreationClassName: " & objItem.CreationClassName
Debug.Print "Depth: " & objItem.Depth
Debug.Print "Description: " & objItem.Description
Debug.Print "Height: " & objItem.Height
Debug.Print "HostingBoard: " & objItem.HostingBoard
Debug.Print "HotSwappable: " & objItem.HotSwappable
Debug.Print "InstallDate: " & objItem.InstallDate
Debug.Print "Manufacturer: " & objItem.Manufacturer
Debug.Print "Model: " & objItem.Model
Debug.Print "Name: " & objItem.Name
Debug.Print "OtherIdentifyingInfo: " & objItem.OtherIdentifyingInfo
Debug.Print "PartNumber: " & objItem.PartNumber
Debug.Print "PoweredOn: " & objItem.PoweredOn
Debug.Print "Product: " & objItem.Product
Debug.Print "Removable: " & objItem.Removable
Debug.Print "Replaceable: " & objItem.Replaceable
Debug.Print "RequirementsDescription: " & objItem.RequirementsDescription
Debug.Print "RequiresDaughterBoard: " & objItem.RequiresDaughterBoard
Debug.Print "SerialNumber: " & objItem.SerialNumber
Debug.Print "SKU: " & objItem.SKU
Debug.Print "SlotLayout: " & objItem.SlotLayout
Debug.Print "SpecialRequirements: " & objItem.SpecialRequirements
Debug.Print "Status: " & objItem.Status
Debug.Print "Tag: " & objItem.Tag
Debug.Print "Version: " & objItem.Version
Debug.Print "Weight: " & objItem.Weight
Debug.Print "Width: " & objItem.Width
Next
Semoga mas. Edy semakin berbahagia selalu
Salam
Nurhasim Hasan
--- On Thu, 2/4/10, Murid Belajar Access <[email protected]>
wrote:
From: Murid Belajar Access <[email protected]>
Subject: RE: [belajar-access] memunculkan merk dan type pc di form
To: [email protected]
Date: Thursday, February 4, 2010, 5:09 PM
Silahkan lihat di : http://www.codeguru .com/forum/ showthread.
php?t=383727
Salam hangat dan jabat erat,
MBA
-----Original Message-----
From: belajar-access@ yahoogroups. com [mailto:belajar-access@ yahoogroups. com]
On Behalf Of hasimnurhsm@ yahoo.com
Sent: Friday, February 05, 2010 07:17 AM
To: belajar-access@ yahoogroups. com
Subject: [belajar-access] memunculkan merk dan type pc di form
Dear all Accessor, sy ingin membuat PC Audit menggunakan access, mulai dari
deteksi otomatis semua program yang terinstall sampai kepada speck hardware,
sy ada kendala di rumus untuk menampilkan MERK dan TYPE Motherboard.
Semua sahabat access semua, mohon pencerahannya.
Salam
Nurhasim hasan
