Mendapatkan Nomor Seri Hardisk Menggunakan VBA

Apabila anda seorang programmer dan kebetulan anda menggunakan aplikasi Microsoft Excel sebagai software utama yang Anda gunakan untuk membangun sebuah aplikasi, maka mungkin kode ini sangat berguna bagi anda.

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

Kode di atas berguna dalam mendeteksi sebuah Hardisk (serial hardisk C:\) yang sedang aktif digunakan.
Bagi beberapa programmer - serial hardisk sering kali digunakan untuk mengunci sebuah aplikasi yang mereka bangun, sehingga dengan kata lain - aplikasi tersebut 'hanya' dapat dijalankan pada komputer yang memiliki serial hardisk yang sama - istilah kerennya adalah "single user".
Silahkan Anda modifikasi kode diatas untuk dapat menghasilkan sesuatu seperti yang anda inginkan.

Sebagai gambaran:
Anda menginstall sebuah aplikasi pada komputer A yang memiliki serial Hardisk 1234567, kemudian anda melakukan registrasi agar aplikasi tersebut dapat digunakan sebagaimana mestinya - programmer kemudian mengirimkan sebuah kode aktivasinya yang didasarkan pada nomor serial Hardisk yang anda gunakan saat melakukan registrasi - sehingga jika suatu ketika anda ingin menginstall aplikasi tersebut di komputer B atau C (yang tentunya dengan nomor seri hardisk yang berbeda) maka aplikasi tidak bisa dijalankan, meskipun anda sudah mendapatkan kode aktivasinya.

Ditulis oleh : Anto Ramana
Dipublikasikan pada : 13.01.13 | 10:48
Judul : Mendapatkan nomor seri Hardisk menggunakan VBA
Kategori : Macro VBA

Tutorial Excel Lainnya :