USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Drives/CD-ROM/Discos)

Título da Dica:  Detectando o número serial de um disco
Postada em 28/2/2001 por Jayme      Clique aqui para enviar email para o autor  jaymekm@osite.com.br
Veja como descobrir o número serial de um disco qualquer (HD, disquete, etc)

Num módulo, inclua o código abaixo:

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 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


No formulário, chame a função DriveSerialNumber, passando como parâmetro a unidade desejada. É necessário passar apenas a letra da unidade. Exemplo:

MsgBox "O número de série do HD é: " & DriveSerialNumber("C")


Atenciosamente,
Jayme

 


CyberWEB Network Ltda.    © Copyright 2000-2019   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página