Olá

 

Andei olhando na sessão de dicas e não achei nenhum código pra pegar o serial do HD que preste ou então que não esplica como usar porque eu tenhu certeza que um deles ali precisa selecionar algum componente na biblioteca mas não está falando!!

 

Bom será que alguém poderia me passar um esquema perfeito pra pegar o serial do HD ou de qualquer disco?!?!

 

Obrigado

 

Pilantra

 

pilantra , se voce conseguir mande pra mim tambem ok, eu tambem peguei 2 já, e nenhum funcionou, obrigado, meu email é acg1504@yahoo.com.br

Algumas informações e dicas :

 

Por gentileza, passem à mim também. Faz tempo que estou pedindo isto. Meu e-mail: acordeme@hotmail.com

obs.: Pilantra, vc tem codigos para pegar caracteristicas de memória, placa-mãe e outros dispositivos usando as DLLs. Se tem mande no meu e-mail

muito grato.

Em um modulo:

 

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

 

Public Function DriveSerial(ByVal Drive As _
       String) As Long
  'Valor que retornará o serial do HD
  Dim RetVal As Long

  Dim HDNameBuffer As String * 256 'Nome do HD
  Dim FSBuffer As String * 256     'FS do HD
  Dim a As Long                    'auxiliar
  Dim b As Long                    'auxiliar

  Call GetVolumeInformation(Drive, HDNameBuffer, _
       256, RetVal, a, b, FSBuffer, 256)

  DriveSerial = RetVal
End Function

 

Para Chamar a Funcao:

msgbox Trim(DriveSerial("C:"))

 

Alexandre, pra mim não funcionou.  ?????