Visual Basic: Como leer el serial del disco duro.

[jcl]

Primero:


Public 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

Después:


Public Function GetVolumeSerials() As Long
plpVolumeNameBuffer = ""
pnVolumeNameSize = 0
plpVolumeSerialNumber = 0
plpMaximumComponentLength = 0
plpFileSystemFlags = 0
plpFileSystemNameBuffer = ""
pnFileSystemNameSize = 0

plpRootPathName = "C:\"
Dim Res
Res = GetVolumeInformation(plpRootPathName, _
plpVolumeNameBuffer, _
pnVolumeNameSize, _
plpVolumeSerialNumber, _
plpMaximumComponentLength, _
plpFileSystemFlags, _
plpFileSystemNameBuffer, _
pnFileSystemNameSize)

GetVolumeSerials = plpVolumeSerialNumber

End Function

Sólo tienes que cortar y pegar este código. Luego en el lugar apropiado llamas la función con algo así:

Dim Serial as logn

Serial = GetVolumeSerials

Y allí tendrás lo que buscas.