Hai Nanank,
Untuk dapatkan bios serial number, coba
http://support.microsoft.com/kb/558124
Untuk dapatkan HDD serial number (berdasar drive nya)
>> pada sebuah module :
'deklarasi winapi getvolumeinformation
Private Declare Function GetVolumeInformation Lib "kernel32.dll" Alias
"GetVolumeInformationA" _
(ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String,
ByVal nVolumeNameSize As Long, _
ByRef lpVolumeSerialNumber As Long, ByRef lpMaximumComponentLength
As Long, _
ByRef lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As
String, _
ByVal nFileSystemNameSize As Long) As Long
'prosedur untuk ambil HDD drive C:\ serial number
public sub myHDD()
dim lSerial as long
call GetVolumeInformation("C:\", vbNullString, 0, lSerial, 0, 0,
vbNullString, 0)
'hdd drive C:\ serial number sudah tersimpan di variabel lserial
debug.print abs(lserial)
end sub
Wassalam,
Kid.
2012/10/3 Flow Nanank <[email protected]>
> **
>
>
> Dear para master excel..
>
> Saya ingin membuat file excel dg proteksi berdasarkan nomor harddisk atau
> bios..
> Mohon bantuannya donk..
>
>
> Dikirim dari Yahoo! Mail pada Android
>
>
>
>
