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-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página
 
 Home
 Artigos
 Cadastro
 Visual Basic
 Visual Basic .Net
 ASP
 ActiveX
 Apostilas
 Fóruns
 Utilitários
 Parceiros
 Hospedagem