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