Descrição:
Como retornar o número de série de um HD instalado no computador?
Solução:
Uma possibilidade é através do script abaixo. Ele lista os números de série dos HDs e das unidades de Disco do computador. Neste exemplo, o script é disparado no evento Click() de um botão em uma tela qualquer da aplicação:
Sub CommandButton1_Click()
‘Script para exibir o SerialNumber do/dos HD’s
strComputer = “.”
Set objWMIService = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“SELECT * FROM Win32_PhysicalMedia”)
For Each objItem In colItems
str = “SerialNumber: “ & objItem.SerialNumber
‘Utilizado uma caixa de mensagem para exibir o SerialNumber dos HD’s
MsgBox str
Next
End Sub
