mendapatkan serial number hardisk dengan VB

Salam Cookie !

*artikel ini didiapat dari tetangga dengan tujuan artikel starter dalam blog ini, selebihnya jika ada pertanyaan silahkan masukan dalam kotak komentar
link selengkapnya dari artikel ini : http://kaskus.us/showpost.php?p=39468510&postcount=49
tx to : smartcanix (kaskuser)


Pernah buat program yang hanya bisa dijalankan di komputer tertentu? Buat yang belum tahu caranya dan kepingin buat program seperti itu, salah satu caranya adalah dengan mengambil Serial Number (No. Seri) dari harddisk di komputer tersebut, lalu bandingkan dengan daftar serial yang kita beri hak akses, dan tadaaa jadilah program yang hanya bisa dijalankan di komputer tertentu.
Berikut fungsi untuk mengambil serial number disk:
Code:

Public Function DiskSerialNumber(ByVal sDrive As String) As String
Dim oFSO As Object
Dim oDrive As Object
Dim sHasil As String

On Error GoTo ErrHandler

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oDrive = oFSO.GetDrive(sDrive)
sHasil = oDrive.SerialNumber
Set oDrive = Nothing
Set oFSO = Nothing

DiskSerialNumber = sHasil

Exit Function

ErrHandler:
DiskSerialNumber = ""
End Function

contoh pemakaiannya nanti bisa seperti ini:

Code:

If DiskSerialNumber("C") <> "1234567890" Then
MsgBox "MAAF! ANDA TIDAK BOLEH MASUK!"
Else
MsgBox "Silahkan masuk, Bos!"
End If

Dengan catatan, ganti 1234567890 itu dengan serial number yang kita inginkan. Untuk mendapatkan serial number di komputer tertentu, kita harus jalankan terlebih dahulu perintah:
Code:

MsgBox DiskSerialNumber("C")

Semoga bermanfaat.

Good Luck

It's peang.cookie !!!