√ Cek Nomor Seri Hardisk (Serial Number) Komputer Dengan Vba

Nomor seri hardisk (serial number) setiap komputer berbeda-beda dan bagaimana cara mengetahui nomor seri dari sebuah hardisk? Tutorial berikut akan menjelaskan bagaimana coding VBA untuk menampilkan nomor seri dari hardisk.

Simak:
Validasi Data Cell/Range di Excel

Ada banyak alasan seorang programmer untuk dapat mengetahui serial number dari hardisk salah satunya ialah dapat dipakai sebagai fungsi untuk menjalankan aktivitas artinya bila nomor seri hardisk tidak sesuai maka aktivitas tidak dapat dijalankan. Hal ini bias dikatakan sebagai salah satu cara untuk aktivasi dari aktivitas yang dibentuk artinya sebuah software atau aktivitas harus diaktivasi terlebih dahulu untuk dapat difungsikan dengan baik.

Syntax penulisan untuk menampilkan sebuah nomor seri hardisk ialah :

CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber

Dari script diatas anda dapat menampilkan nomor seri (serial number) dengan banyak sekali cara contohnya melalui sebuah pesan, menampilkan pada alamat cell dan worksheet atau dapat juga pada label dan textbox yang disediakan pada userform dan yang paling hebatnya juga Anda dapat menyimpan mekanisme ini dikala workbook dibuka pertama kali sebagai validasi dari software yang Anda  buat.

Menampilkan nomor seri hardisk melalui pesan

Script untuk menampilkan serial number hardisk dengan tampilan pesan Anda dapat ketikkan coding berikut pada userform Commandbutton

Private Sub CommandButton1_Click()
Dim Pesan As Integer
Dim Pesannya As String
Dim JudulPesan As String

Pesannya = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
JudulPesan = "Nomor Seri Hardisk"
    Pesan = MsgBox("Nomor Seri: " & Pesannya, vbInformation, JudulPesan)
End Sub

Hasil dari coding diatas ialah sebagai berikut

Anda tambahkan 1 buah CommandButton dalam UserForm kemudian untuk objek CommandButton silakan tambahkan coding diatas dalam mekanisme klik.

Menampilkan nomor seri hardisk (serial number) pada label dan textbox

Untuk menampilkan nomor seri hardisk (serial number) ditampilkan melalui textbox ataupun label, contohnya saya contohkan cara menampilkan nomor seri hardisk melalui textbox maka silakan buat dan desain userform kemudian tambahkan 1 buah label dan 1 buah textbox kemudian tambahkan juga 1 buah commandbutton.

Untuk label silakan ganti caption menjadi "Nomor Seri:" kemudian untuk textbox1 biarkan saja properties tidak ada yang dirubah dan terakhir untuk commandbutton1 silakan ganti caption menjadi " Tampilkan Nomor Seri" Setelah desain form selesai langkah berikutnya kita akan menciptakan mekanisme silakan masuk ke pengcodean di VBA Editor Anda kemudian ketikkan coding  berikut ini

Private Sub CommandButton1_Click()
TextBox1.Value = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
End Sub

Coding diatas merupakan objek CommandButton apabila dilakukan mekanisme Click maka akan menjalankan perintah bahwa isi dari textbox1 tersebut akan menampilkan nomor seri dari hardisk komputer yang anda gunakan.

Jika Anda melaksanakan perintah klik pada tombol "Tampilkan Nomor Seri" maka nomor seri akan ditampilkan pada textbox yaitu : -1072298543

Hasil dari coding ini akan memperlihatkan isu bahwa akan berbeda-beda jadi bila Anda mencoba bahan coding ini akhirnya tidak akan sama walaupun perintahnya atau penulisan coding sama persis dengan goresan pena yang saya tampilkan disini.

Lihat Juga :
Validasi textbox hanya dapat diisi dengan teks bukan angka

Menmapilkan Serial Hardisk pada Workbook Open

Pada dasarnya untuk menampilkan nomor seri dari hardisk (serial number) codingnya sama saja tergantung Anda akan menempatkan dimana apakah dikala userform aktif, atau berupa klik pada tombol menyerupai yang telah dicontohkan diatas atau melalui sebuah pesan peringatan. Selain cara-cara diatas tentunya ada cara lain yaitu menampilkan nomor seri hardisk melalui mekanisme workbook_Open

Lihat pola coding untuk mekanisme workbook_open

Private Sub Workbook_Open()
MsgBox (CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber)
End Sub

Nah, pada mekanisme ini Anda  dapat menciptakan validasi yang lebih extrem contohnya bila nomor seri tidak sesuai maka workbook tersebut akan ditutup kembali atau dapat tambahkan dengan sebuah peringatan sebagai isu ketidakabsahan. Hal ini biasanya dipakai dikala menciptakan aplikasi dengan VBA yang mengharuskan user untuk melaksanakan pendaftaran untuk validasi dari aplikasi tersebut.

Salah satu pola penggunaannya ialah dikala saya menciptakan sebuah Aplikasi PPDB, kira-kira tampilan serta kecerdikan alogitmanya menyerupai itu.

Demikian tutorial singkat bagaimana menampilkan nomor seri hardisk (serial number) melalui userform VBA, dan semoga bermanfaat.
Sumber http://www.excel-id.com/