[belajar-access] Re: cara menampilkan nomor seri harddisk dengan ms access 2003

[Lukito Hartono]

Mas Galih,

Nih yang biasa saya pake,

Public Function GetVolumeSN(argDriveLetter As String)
    On Error Resume Next
    Dim pSerial As Long
    pSerial =
CreateObject("Scripting.FileSystemObject").GetDrive(argDriveLetter &
":\").SerialNumber
    GetVolumeSN = VBA.Replace(VBA.Format(VBA.Hex(pSerial),
"@@@@-@@@@"), " ", "0", 1, 8, vbTextCompare)
    'GetVolumeSN = VBA.Hex(pSerial)
    'GetVolumeSN = VBA.Trim(pSerial)
End Function

misalnya: GetVolumeSN("C")

Sebenarnya ini adalah Serial Number Volume / partisi HDD, yang akan
diganti jika kita memformat partisi tersebut. Serial ini bisa
diganti-ganti, melalui software khusus.

Kalau Serial Number Physical HDD, perlu low level API maupun melaui
WMI (Windows Management Instrumentation).

Thanks. :D

Lukito Hartono