Obtendo o serial do HD

Visual Basic 6 - Obtendo o serial do 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 = "Obter Número de Série do HD. O formulário tem o seguinte aspecto:

2- No menu Project inclua uma referência a biblioteca Microsoft Scripting Runtime (SCRRUN.DLL)

3- Agora insira o seguinte código no evento Load do formulário

Private Sub Form_Load()
Combo1.AddItem "C"
Combo1.AddItem "D"
Combo1.AddItem "E"
Combo1.AddItem "F"
Combo1.ListIndex = 0
End Sub

4- Insira o seguinte código no evento Click do botão de comando:

Private Sub Command1_Click()
'Exibe o número de serie do drive atual
If Combo1.Text = "" Then Exit Sub
MsgBox " Número de série do dispositivo " & Combo1.Text & " : " & GetDriveSerialNumber(Combo1.Text)
End Sub

B-) Agora defina o código da função GetDriveSerialNumber :

Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long

Dim fso As Object
Dim Drv As Object

'Cria um objeto FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

'Atribui a letra do drive atual se nada for especificado
If DriveLetter <> "" Then
     Set Drv = fso.GetDrive(DriveLetter)
Else
     Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))
End If

With Drv
   If .IsReady Then
       DriveSerial = Abs(.SerialNumber)
   Else '"Drive não esta pronto!"
       DriveSerial = -1
   End If
End With

'libera objetos
Set Drv = Nothing
Set fso = Nothing

GetDriveSerialNumber = DriveSerial

End Function

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: