Bpk barangkali ini bisa jadi sample VBA WMI dari blog Access Tips http://accesstips.wordpress.com/
Thank's ----- Original Message ----- From: Aksan Kurdin To: [email protected] 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, [email protected] 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 <[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
