Cómo obtener código de máquina (código de disco duro, código de placa base, etc.) en VB

Función de declaración privada MymachineC Lib "kernel32" Alias ​​​​"GetVolumeInformationA" (ByVal lpRootPathName como cadena, ByVal ByVal lpRootPathName como cadena, ByVal lpVolumeNameBuffer como cadena, ByVal nVolumeNameSize como Largo, lpVolumeSerialNumber Mientras, lpMaximumComponentLength Mientras, lpFileSystemFlags Mientras, ByVal lpFileSystemNameBuffer Como Cadena, ByVal nFileSystemNameSize Mientras) Mientras

Private Sub Form_Load()

Dim AA, HDD Serial Número, Maxlen, Sysflag como Maxlen, Sysflag como largo: Dim VolName, FsysName como cadena

AA = MymachineC("c:\", VolName, 256, número de serie del disco duro, Maxlen, Sysflag, FsysName, 256 )

msgbox "Número de serie del disco duro C - código de máquina la - (Sistema 16):" & Hex (número de serie del disco duro)

Finalizar subrutina

Esto solucionará el problema