Verificar El Serial del Disco Duro con rutinas en Vb6

[elmicro]

Buenas Buenasss!!!

Quisiera saber como es posible saber el Serial del Disco Duro ...!

Alguien tendra codigos q permita conocer cual es el serial del Disco Duro acutal???

Gracias Por TODO!"!!

ElMicro... Jah Bless

[luciano]

Busca en internet un ejemplo usando la función GetVolumeInformation

También lo podes averiguar usando FSO


saludos


----------------

[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

[GeoAvila]

ese no es el serial del disco duro... lo que estas extrayendo alli es un numero que se le da a la partición, pero no es el serial, cuando formatees el disco duro tendrá otro número o bien coloca otra partición del mismo disco y verás..

nos vemos..

[Korku]

Iniciado por GeoAvila

ese no es el serial del disco duro... lo que estas extrayendo alli es un numero que se le da a la partición, pero no es el serial, cuando formatees el disco duro tendrá otro número o bien coloca otra partición del mismo disco y verás..

nos vemos..

Pues nada