Buku Harian Mas dan Dede -[ Dimas Sasongko + Tri Apriyani]- www.masdimas.co.cc

‘Program untuk mengecek Serial Number Harddisk
‘untuk manual anda bisa cek di console dos ketik Vol.
‘By: Muhammad Dimas Sasongko -2008-
‘——————————————————
Private Declare Function GetVolumeInformation Lib "kernel32" Alias _
"GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _
lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long

Sub ReadInfo()
Dim drvserialno As Long
Dim mydrvlabel As String * 256
Dim myfilesys As String * 256
Dim i As Long
Dim j As Long
Dim x As Long
x = GetVolumeInformation("C:\", mydrvlabel, 256, drvserialno, i, j, myfilesys, 256)
‘MsgBox "Label of C Drive is " & mydrvlabel
MsgBox "It’s serial number = " & Hex(drvserialno)
‘MsgBox "FileSystem = " & myfilesys
If Hex(drvserialno) = "28B632F1" Then MsgBox "OK"
End
End Sub

~ by dimassasongko on January 16, 2008.