Source Code HDSN

Option Explicit
Private Declare Function GetVolumeInformation Lib _
"kernel32.dll" Alias "GetVolumeInformationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuffer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength _
As Long, lpFileSystemFlags As Long, ByVal _
lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long) As Long
Private pszLibFileRemote As String

Sub BacaSerial()
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)
hdsn.Text = Hex(drvserialno)
End Sub

Private Sub cmdhdsn_Click()
hdsn.Text = Trim$(GetDriveInfo(0).SerialNumber) & Trim$(GetDriveInfo(1).Model) & Trim$(GetDriveInfo(1).SerialNumber)
hdsn.Text = Replace(hdsn.Text, " ", "")
End Sub

Private Sub Form_Load()
End Sub