Cómo obtener el ID del disco duro mediante programación en VB

Función de declaración privada hardisk Lib "kernel32" Alias ​​​​"GetVolumeInformationA" (ByVal lpRootPathName como cadena, ByVal lpVolumeNameBuffer como cadena, ByVal nVolumeNameSize como larga, lpVolumeSerialNumber como larga, lpMaximumComponentLength como larga, lpFileSystemFlags como larga, ByVal lpFileSystemNameBuffer como cadena, ByVal nFileSystemNameSize como Long) As Long

Private Sub Form_Load()

En caso de error, vaya a Err_Form_Load

Atenuar aa As Long

DimVolName como cadena

Dim disnun As Long

Dim Maxlen As Long

Dim Sysflag As Long

Dim fsysName As String

aa = disco duro ("c. \"):\VolName, 256, disnun, Maxlen, Sysflag, fsysName, 256)

MsgBox "c Número de serie del disco duro (Sistema 16):" amp; deshacer)

Salir de Sub

Err_Form_Load:

Fin de Sub