GET PROCESSOR ID (EXCEL MACRO / VBA)

huy guyssssss..

lama kali ini saya ga pernah update tulisan saya wkwkwkww..
yaaah beginilah nasib jadi progremmer botol kecap..
sibuk iyaaa.. kaya kagak wkwkwkwkww

sibuk project lama lah
sibuk project baru lah..
sibuk maintenance lah..
sibuk interview lah.. *eh maap kesebut*
sibuk psikotest dan test coding lah.. *waaduuh kesebut lg.. maap maap..*

kali ini saya akan membuat tutorial untuk GET PROCESSOR ID pada excel macro..

*trus bang gunanya apa?*
nahh ini.. ini.. jangankan lau bro.. gue aja ga tau gunanya apa.. wkwkkww

ga.. gini.. biasanya saya pakai GET PROCESSOR ID untuk memprotect aplikasi / tools macro saya supaya ga dipakai di sembarang PC

biasanya saya
- GET PROCESSOR ID
- lalu saya encrypt dengan tripledes atau rsa. ini ada contoh untuk enkripsi menggunakan tripledes => TUTORIAL ENCRYPT DATA DENGAN MENGGUNAKAN TRIPLEDES
- lalu saya masukan processor id ini kedalam database atau file.

*emang kalo udah digituin, tools ga bisa di hack bang?*
digituin gimana ini.. digituin digituin ntr hamil loh.. wkwkwkw

sodara2 percayalah sekuat apapun security nya pasti ada jalan untuk di hack, cuma belum saatnya aja kali cara hacknya ketemu. nanti kalo udah ketemu ya jebol2 juga..
ya setidaknya aplikasi kita udah ada pengamanannya lah,
jadi nanti kalo ditanya securitynya ya lumayan lah buat jawab pertanyaan itu..

oke deh langsung aja..
berikut langkah2 dan coding nya..

- buka EXCEL
- dan buka VISUAL BASIC EDITOR, bagi kalian yang belum tau cara bukanya dan aktifin excel macro / VBA bisa di cek disini => CARA AKTIFIN EXCEL MACRO / VBA

lebih detail nya bisa dicek di video berikut

dan berikut saya juga lampirkan coding lengkapnya..

       
Option Explicit

Private Sub get_processor_id()

Dim objWMIService As Object
Dim colItems As Variant
Dim objItem As Variant

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("select * from win32_processor")

For Each objItem In colItems
    MsgBox objItem.processorid
Next

Set colItems = Nothing
Set objWMIService = Nothing

' selesai..

End Sub

      

okee..
sekian dulu tutorial dari saya..
semoga bermanfaat..

Salam #ExcelSakti #HappyCoding
:)