Obtendo o número de série de um HD.

Para obter o número de série de um HD , siga os passos descritos no projeto a seguir:

1- Inicie um novo projeto no VB e no formulário form1 insira um botão de comando com a propriedade Caption = "Clique Aqui para obter Número de Série do HD. O formulário tem o seguinte aspecto:

2- O código do projeto vem a seguir::

Insira um Módulo no seu projeto e copie o seguinte código:

A-) Seção General Declarations

Private 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

B-) Código da função DriveSerialNumber no módulo inserido

Public Function DriveSerialNumber(strDrive As String) As String

Dim x As Long, lngSerialNum As Long

Dim strRoot As String
strRoot = Left$(strDrive, 1) & ":\"

x = GetVolumeInformation(strRoot, "", 0, lngSerialNum, 0, 0, "", 0)

DriveSerialNumber = Hex$(lngSerialNum)

End Function

Código do botão de Comando

Private Sub Command1_Click()
   Text1.Text = DriveSerialNumber("C:")
End Sub

Neste exemplo , quando o usuário clicar no botão de comando a função é chamada passando como parâmetro a letra do drive do qual desejamos obter o número de série.

O resultado final poderia ser algo como:

Você pode melhorar esta função a aplicá-la dentro de suas próprias necessidades...

Até a próxima dica...

nota: veja uma outra forma de obter o mesmo resultado, ou , se este código não funcionar veja esta dica :  Serial do HD