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