Visual Basic - Leer Número de Serie de un Volumen

Necesito urgente, sabe como con visual basic 6.0 se puede leer el número de serie de un volumen (de un disco duro, de un cd y de un disco floppy)

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

Ejemplo para leer el volumen de un disco, esta función se puede usar para ¡catalogar los CD's musicales!

Dim lVSN As Long, n As Long, s1 As String, s2 As String

s1=String$(255,Chr$(0))

s2=String$(255,Chr$(0))

l= GetVolumeInformation("unidad", s1, Len(s1), lVSN, 0, 0, s2, Len(s2))

'lVSN tendrá el valor del Volume Serial Number (número de serie del volumen)

TIPO DE UNIDAD ES ESTE OTRO CODIGO

'Valores de retorno de GetDriveType

Public Const DRIVE_REMOVABLE = 2

Public Const DRIVE_FIXED = 3

Public Const DRIVE_REMOTE = 4

'Estos tipos no están en el fichero de las declaraciones del API de 16 bits

Public Const DRIVE_CDROM = 5

Public Const DRIVE_RAMDISK = 6

'

Declare Function GetDriveType Lib "Kernel" (ByVal nDrive As Integer) As Integer

Declare Function GetDriveType Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long



Dim lDrive As Long

Dim szRoot As String



szRoot="D:\" 'Poner aquí la unidad del CD-ROM o la que queramos comprobar

lDrive= GetDriveType(szRoot)

If lDrive = DRIVE_CDROM Then

'Es un CD-ROM/Compact-Disc

End If