[belajar-access] memunculkan merk dan type pc di form [1 Attachment]

----- Original Message -----
From: "Belajar Office" <belajaroffice@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, February 05, 2010 10:07 AM
Subject: Re: [belajar-access] memunculkan merk dan type pc di form [1
Attachment]

Bpk barangkali ini bisa jadi sample VBA WMI dari blog Access Tips
http://accesstips.wordpress.com/

Thank's
----- Original Message -----
From: Aksan Kurdin
To: belajar-access@yahoogroups.com
Sent: Friday, February 05, 2010 9:10 AM
Subject: Re: [belajar-access] memunculkan merk dan type pc di form

Mantap, tinggal aplikasi jadi yang sudah implementasi nih, kalau ada yang
mau menyumbang ....
:)

aksan kurdin

On 2/5/2010 8:58 AM, hasimnurhsm@yahoo.com wrote:

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
<murid.belajaraccess@yahoo.co.id> wrote:

From: Murid Belajar Access <murid.belajaraccess@yahoo.co.id>
Subject: RE: [belajar-access] memunculkan merk dan type pc di
form
To: belajar-access@yahoogroups.com
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