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 Thursday, January 24, 2019, 11:39:10 AM GMT+7, 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
#yiv4004352480 #yiv4004352480 -- #yiv4004352480ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4004352480
#yiv4004352480ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4004352480
#yiv4004352480ygrp-mkp #yiv4004352480hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv4004352480 #yiv4004352480ygrp-mkp #yiv4004352480ads
{margin-bottom:10px;}#yiv4004352480 #yiv4004352480ygrp-mkp .yiv4004352480ad
{padding:0 0;}#yiv4004352480 #yiv4004352480ygrp-mkp .yiv4004352480ad p
{margin:0;}#yiv4004352480 #yiv4004352480ygrp-mkp .yiv4004352480ad a
{color:#0000ff;text-decoration:none;}#yiv4004352480 #yiv4004352480ygrp-sponsor
#yiv4004352480ygrp-lc {font-family:Arial;}#yiv4004352480
#yiv4004352480ygrp-sponsor #yiv4004352480ygrp-lc #yiv4004352480hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4004352480
#yiv4004352480ygrp-sponsor #yiv4004352480ygrp-lc .yiv4004352480ad
{margin-bottom:10px;padding:0 0;}#yiv4004352480 #yiv4004352480actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4004352480
#yiv4004352480activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4004352480
#yiv4004352480activity span {font-weight:700;}#yiv4004352480
#yiv4004352480activity span:first-child
{text-transform:uppercase;}#yiv4004352480 #yiv4004352480activity span a
{color:#5085b6;text-decoration:none;}#yiv4004352480 #yiv4004352480activity span
span {color:#ff7900;}#yiv4004352480 #yiv4004352480activity span
.yiv4004352480underline {text-decoration:underline;}#yiv4004352480
.yiv4004352480attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv4004352480 .yiv4004352480attach div a
{text-decoration:none;}#yiv4004352480 .yiv4004352480attach img
{border:none;padding-right:5px;}#yiv4004352480 .yiv4004352480attach label
{display:block;margin-bottom:5px;}#yiv4004352480 .yiv4004352480attach label a
{text-decoration:none;}#yiv4004352480 blockquote {margin:0 0 0
4px;}#yiv4004352480 .yiv4004352480bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4004352480
.yiv4004352480bold a {text-decoration:none;}#yiv4004352480 dd.yiv4004352480last
p a {font-family:Verdana;font-weight:700;}#yiv4004352480 dd.yiv4004352480last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4004352480
dd.yiv4004352480last p span.yiv4004352480yshortcuts
{margin-right:0;}#yiv4004352480 div.yiv4004352480attach-table div div a
{text-decoration:none;}#yiv4004352480 div.yiv4004352480attach-table
{width:400px;}#yiv4004352480 div.yiv4004352480file-title a, #yiv4004352480
div.yiv4004352480file-title a:active, #yiv4004352480
div.yiv4004352480file-title a:hover, #yiv4004352480 div.yiv4004352480file-title
a:visited {text-decoration:none;}#yiv4004352480 div.yiv4004352480photo-title a,
#yiv4004352480 div.yiv4004352480photo-title a:active, #yiv4004352480
div.yiv4004352480photo-title a:hover, #yiv4004352480
div.yiv4004352480photo-title a:visited {text-decoration:none;}#yiv4004352480
div#yiv4004352480ygrp-mlmsg #yiv4004352480ygrp-msg p a
span.yiv4004352480yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4004352480
.yiv4004352480green {color:#628c2a;}#yiv4004352480 .yiv4004352480MsoNormal
{margin:0 0 0 0;}#yiv4004352480 o {font-size:0;}#yiv4004352480
#yiv4004352480photos div {float:left;width:72px;}#yiv4004352480
#yiv4004352480photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv4004352480
#yiv4004352480photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4004352480
#yiv4004352480reco-category {font-size:77%;}#yiv4004352480
#yiv4004352480reco-desc {font-size:77%;}#yiv4004352480 .yiv4004352480replbq
{margin:4px;}#yiv4004352480 #yiv4004352480ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv4004352480 #yiv4004352480ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4004352480
#yiv4004352480ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4004352480
#yiv4004352480ygrp-mlmsg select, #yiv4004352480 input, #yiv4004352480 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv4004352480
#yiv4004352480ygrp-mlmsg pre, #yiv4004352480 code {font:115%
monospace;}#yiv4004352480 #yiv4004352480ygrp-mlmsg *
{line-height:1.22em;}#yiv4004352480 #yiv4004352480ygrp-mlmsg #yiv4004352480logo
{padding-bottom:10px;}#yiv4004352480 #yiv4004352480ygrp-msg p a
{font-family:Verdana;}#yiv4004352480 #yiv4004352480ygrp-msg
p#yiv4004352480attach-count span {color:#1E66AE;font-weight:700;}#yiv4004352480
#yiv4004352480ygrp-reco #yiv4004352480reco-head
{color:#ff7900;font-weight:700;}#yiv4004352480 #yiv4004352480ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv4004352480 #yiv4004352480ygrp-sponsor
#yiv4004352480ov li a {font-size:130%;text-decoration:none;}#yiv4004352480
#yiv4004352480ygrp-sponsor #yiv4004352480ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv4004352480
#yiv4004352480ygrp-sponsor #yiv4004352480ov ul {margin:0;padding:0 0 0
8px;}#yiv4004352480 #yiv4004352480ygrp-text
{font-family:Georgia;}#yiv4004352480 #yiv4004352480ygrp-text p {margin:0 0 1em
0;}#yiv4004352480 #yiv4004352480ygrp-text tt {font-size:120%;}#yiv4004352480
#yiv4004352480ygrp-vital ul li:last-child {border-right:none
!important;}#yiv4004352480
