Dear Pak Hendrik
Selamat malam,
saya menggunakan cekript di bawah pada Visual Basic 6.0.
dicoba dahulu pak Hendrik semoga berfungsi dikomputer pak Hendrik.
saya pakai juga di Excel 2007 berfungsi normal.
Option Explicit
Sub SerialNumber()
Dim objs As Object
Dim obj As Object
Dim WMI As Object
Dim procid As String
Set WMI = GetObject("WinMgmts:")
Set objs = WMI.InstancesOf("Win32_BaseBoard")
For Each obj In objs
procid = procid & obj.SerialNumber
If procid < objs.Count Then procid = procid & ","
Next
*MsgBox procid*
End Sub
Salam
KenangAgus
On 1/24/2019 11:38, hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel] wrote:
Dear Be-Excel,
Selamat pagi, salam sejahtera.
Pada kesempatan ini saya ingin bertanya :
Bagaimanakah perintah Macro di Excel (/*jika bisa*/) untuk mengambil
Serial Number dari komputer yang sedang kita gunakan ?
Saya akan menggunakan Serial Number ini untuk mem-password file Excel.
Di bawah ini adalah Serial Number yang saya dapatkan melalui perintah
Cmd:\, WMIC BASEBOARD GET PRODUCT, .....
Inline image
Terima kasih.
Salam,
HK
