Mr Kid,
Sdh saya coba dan berhasil (file terlampir).Macronya spt ini :
Sub Disp_SN() Dim SN As String SN =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select
* from Win32_BaseBoard").itemindex(0).serialnumber MsgBox SNEnd Sub
Terima kasih,
Salam,HK----- Pesan yang Diteruskan ----- Dari: hendrik karnadi <[email protected]>Kepada: [email protected] <[email protected]>Terkirim: Selasa, 29 Januari 2019 09.03.24 GMT+7Judul: Re: [belajar-excel] Macro untuk mengambil Serial Number Komputer Makasih Mr.Kid.Akan saya coba. Salam,HK Sent from Yahoo Mail on Android On Tue, Jan 29, 2019 at 8:31, 'Mr. Kid' [email protected] [belajar-excel]<[email protected]> wrote: begini :Debug.Print GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_BaseBoard").itemindex(0).serialnumber bisa ditulis di immediate window, bisa dimasukkan ke sebuah prosedur, dan sebagainya. On Thu, Jan 24, 2019 at 11:38 AM hendrik karnadi [email protected] [belajar-excel] <[email protected]> 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, ..... Terima kasih. Salam,HK On Tue, Jan 29, 2019 at 8:31, 'Mr. Kid' [email protected] [belajar-excel]<[email protected]> wrote: begini :Debug.Print GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("Select * from Win32_BaseBoard").itemindex(0).serialnumber bisa ditulis di immediate window, bisa dimasukkan ke sebuah prosedur, dan sebagainya. On Thu, Jan 24, 2019 at 11:38 AM hendrik karnadi [email protected] [belajar-excel] <[email protected]> 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, ..... Terima kasih. Salam,HK
Melihat SN.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
