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 a serial do HD utilizando o objeto FileSystemObject
Postada em 22/4/2003 por Fábio/SP         
Dim fso As New FileSystemObject
Dim Winchester As Scripting.Drive

Set Winchester = fso.GetDrive("C")
MsgBox "O Nº Serial é: " & Hex$(Winchester.SerialNumber)
 


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