SoloCodigo

Utiliza lo siguiente:

Private Sub Form_Load()
Dim cad1 As String * 256
Dim cad2 As String * 256
Dim numSerie As Long
Dim longitud As Long
Dim flag As Long
unidad = "C:\"
Call GetVolumeInformation(unidad, cad1, 256, numSerie, longitud, flag, cad2, 256)
sHex = Trim(Hex(numSerie))
If Len(sHex) < 8 Then
    Delta = 8 - Len(sHex)
    For i = 1 To Delta
        sHex = "0" & sHex
    Next i
End If
Label1.Caption = sHex
End Sub


En un modulo inserta este codigo:
Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, ByVal nVolumeNameSize _
As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags _
As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)


Prueba

Creo que esto te servirá. No recuerdo de donde lo bajé, mis disculpas por no nombrar al creador. Sólo dejo claro que yo no fui.

Salu2.

Hola Sujey!
El proyecto funciona tal cual. Me temo que pueda ser un problema de versión.
El motivo de que no recuerde dónde lo obtuve es que fue hace mucho tiempo. Cuando lo bajé todavía tenía el visual 5.0 y no me funcionó (no recuerdo si era ese error exactamente).

Ojalá y lo puedas solucionar, pues es lo que buscas.

Hola bueno lo que le dejare aca.. es el mismo archivo adjunto por Juanolo pero menos pesado... solo con los archivos necesarios...

Bueno a mi me funciona ok... y tengo el vb6

ahi les va..

Hola a todos... haber si hay alguien que nos pueda ayudar..

El problema es el siguiente.. a algunos no nos funciona los zipeados.. bueno a mi si me funcionada.. pero cuando trabajaba en Win98.. pero ahora que trabajo con XP.. no me funciona...

Me sale que no se puede cargar el archivoDSIdinfo.vxd....

Haber si alguien nos da una manita... plz...
en Win 98 si me funcionaba.. pero ahroa en XP no  

Gracias por su ayuda..


DJ

Os adjunto un programita que te da las 3 series:
Lógico
Fábrica
Físico

La única pega es que tanto en las series de Fábrica como la Física no sé identificar de qué disco duro es, pero bueno...¿algo es algo no?
Espero que os sirva de ayuda...

Saludos,

PD: El código no es mio.