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

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Número de série do HD, sem API
Postada em 10/6/2005 por ATS            
Dim lSerial as Long
Dim fso As New FileSystemObject, drvDrive As Drive
  
'Pega as informações do drive c:
Set drvDrive = fso.GetDrive(left(fso.GetDriveName("c:"), 2))
  
'Pega o número de série do HD
lSerial = drvDrive.SerialNumber

E não esqueça de adicionar aos references do seu projeto a seguinte biblioteca "Microsoft Scripting Runtime", senão não funciona
 


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