Verificar El Serial del Disco Duro con rutinas en Vb6

[Korku]

Hola,

Código:

 
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
 
Public Function GetSerialNumber() As Long
    Dim strVolumeBuffer As String
    Dim strSysName As String
    Dim lngSerialNumber As Long
    Dim lngSysFlags As Long
    Dim lngComponentLen As Long
    Dim lngResult As Long
    
    strVolumeBuffer$ = String$(256, 0)
    strSysName$ = String$(256, 0)
    lngResult = GetVolumeInformation("C:\", strVolumeBuffer$, 255, lngSerialNumber, _
            lngComponentLen, lngSysFlags, strSysName$, 255)
                 
    GetSerialNumber = lngSerialNumber
    
End Function

Saludos